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RESTRACT 


ws TS A SELF CONTAINED PROGRAM DESIGNED TO CONVERT DATA FROM 
T GAMMA CRMERA VIA_T PLA 0 


AME HE NCIl INTERFACE AND DISPL 
OR VSVO1 DISPLAY. IT CAN FOR CAMERA’ INTERFACE 
TOP odes tN 2. 


CONTROL IS ACCOMPLISHED THRU THE CONSOLE KEYSOARD 


REQUIREMENTS 

EQUISMENT 

1. POP-11 COMPUTER 

e. 1/0 TERMINAL (1.E., ASR33 TT!) : 
3. NC11 INTERFACE 
4 MMA C (OR SUBSTITUTE) 

S. VTOl OR VSV01 DISPLAY 
EQUIPMENT/OC* MENTATION - OPTIONAL 


s- 306 JOYSTIC 
§- ARII IF SELE TER FOR soverace 005 
. NO1LI-R CAMERA FRONT-END INSTRUCTION MANUAL 
4. DRAWING SET NC11-A-0 . 
PRELIMINARY PROGRAMS 


1. MAINDEC-1L1-DZNCA SHOULD HAVE PREVIOUSLY SEEN SUN 


K 
¢ 


STORAGE 
THIS PROGRAM USES ALL OF LOWER lek OF MEMORY. 


LOADING PROCEDURE 


hg ei FOR LOADING A BINARY PROGRAM INTO MEMORY SHOULD 


BE FOLLOWED 
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14% ; PAGE 4 
a45 

158 

ta 4.0 STARTING PROCEDURE 

i¥ 

250 LOADING ADDRESS 200 AND STARTING WILL INITIALIZE THE SYSTEM AND 
i$] AWAIT A KEYBOARD COMMAND. 


153 

is3 

iss 

153 5.0 OPERATOR OPTIONS 

is? 

158 5.1 OPERATOR KEYBOARD OPTIONS 

b } 

166 TYPE “N= Soe i DATA FROM AMERA = ¢ EARS CORE MATRIX FIRST 
16 TYPE “C= COLLEC ATA FROM CAMERA - STARTS NC11, PREVICUS CORE 
ies TYPE “S"- Bit cht Bate COLLECT ON - ALSO TERMINATES FREE RUN 
iss TY OOM = 11 TO GAI 

166 Ne: E rfe- fe Zon REGULAR ge Neth 5 CAN 2 (DEFAULT COND) 

158 eum- SELECT VSVO1 yy ( T COND USING IST BIT MAP) 
ie6 Tee “th SECECT vv ‘Slee 1 aD USE ano BIT Hae 

oi ! 

171 TY oie > FRESE TNE Bebe TED A cGEPAULT COND) 

172 TYPE “B"- DISPLAY ISOTOPE B (B GAMMA) 

173 TYPE “D"- DISPLAY DATA - DISPLAY SELECTED ISoT 


TYPE “L"> at OWER THRESHOLD Bin KEYBOARD (DEFAULT=0) - ALL 
MATRIX ES LESS THAN TYPED VALUE NOT DISPLAYED 

TYPE “U"- Get UPPER THRESHOLD TERON KEYBOARD (DEFAULT=177777) - 

AL ie VALUES GREATER THAN TYPED VALUE ARE NOT 


I 
TYPE “F"- FREE RUN MODE - couLecr DISPLAY NEW DATA 
CON inciZe SLY - TYPE “S” ot TERMINATE THIS MODE 
a | “G"=- INITIALI wt loote NG - STAR 
YPE “J"- trot ICK_CALISRATION USING AR1i - USE “CNTRL C™ TO 


TYPE “K"=- IOVS IC CALIBRATION USING NC11 - USE “CNTRL C™ TO 
RMINATE MODE = USE “CNTRL G" TO TURN OFF/ON BELL 
R0 CONVERT INDICATION) 
TYPE “T"- BISeLAY NTENSITY TEST PATTERN ON SELECTED DISPLAY - 
THIS FEATURE IS FOR DISPLAY VERIFCATION ONLY 


TYPE “CNTRL $ - ABORT WHATEVER - BACK TO KEYBOARD MONITOR 


TYPE “CNTRL : ~ TURN OFF/ON PRINTER BELL UPON A NO CONVERT - 
NC11 Joystick CAL ONLY 


5.2 OPERATOR SWITCH REGISTER OPTION(S) 
NONE 


NNER a NE 
Pett bint tere tots tith brite tte ieee fealh id 
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6.0 RECOMMENDED OPERATOR ACTION 


&.1 CAMERA/ADC SETUP 


1. 


7. 


RADIOACT N FRONT OF RA DETECTOR 
OF USE teak AK REOIDACTIVE.SEPPLE ABOUT 3 Fee ae >) BISE TOR. 
WITH HE COLLIMATOR REMOVE! 
COLLECT DATA (C) AND DISPLAY (D) 

T THE X AND Y GAIN CONT THE NADCi UNTIL A ROUND 
aie 3 SEEN AND C NTERED AT PHON THE BOX ON SCREEN. 
INCREASE THE CIRCLE* SIZE UNTIL THE EDGES JUST BEGIN TC TOUCH 
COLLECT DATA FOR A 3 MINUTE PERIOD AND OBSERVE THE IMAGE. 
THERE N ARTIFACT ON THE CENTER OF THE SCREEN THAT foots 
(eee Azcut ancl BRAC KET, THE COINCIDENCE DELAY CIRCUIT 
SHOULD BE ADJUSTED. 

IF THE MATRIX COUNT EQUALS 65,536, THE Z COUNT EQUALS 


9 AND 
THE DISPLAY IS BLANK. THEN TURN OFF THE ‘TEST CLOCK’ SWITCH 
ON THE BACK OF THE TEREACE” AND THE SITUATION WILL BSE 





IF THE MATRIX AND Z COUNTS EGUAL O THEN NO DATA WAS 
COLLECTED, THEREFORE, NO DISPLAY. 


# THIS MAY BE A HEXAGON FOR SOME MAKES OF OF CAMERA. 


3. 


4. 





6.2 JOYSTICK SETUP 


6.2.1 H306/ARL1 
l. 
é. 


SELECT ARI1 JOYSTICK CONFIGRATION BY TYPING “J”. 

ADJUST THE X 8 Y POTS ON THE H306 JOYSTICK SO THAT THE DOT 
(¥YTOL} OR CROSS HAIRS (VSVO1) PROVIDE UNIFORM ACCESS WITHIN 
THE BOX DRAWN ON THE SCREEN. IDEALLY, A PHYSCIAL CENTER OF 
THE aber stick WILL PROVIDE A POINT APPROXIMATELY CENTERED IN 


CHECK THAT WHEN THE JOYSTICK INTERRUPT BAR IS OEPRESSED THE 
DISPLAYED POINT DOES NOT FOLLOW THE JOYSTICK. 


A “CNTRL C” WILL RETURN USER BACK TO THE KEYSOARD MONITOR. 
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4 
SS 

256 

2s? 6.2.2 H306/NC11 










eS8 
356 1. SELECT NC11 JOYSTICK CONFIGURATION BY TYPING “k™. 

@. REPEAT STEP 2 IN 6.2.1. THE X & Y GAIN CONTROLS ON THE NADOL 
cps ADC’S MAY REQUIRE ADJUSTMENT TO REALIZE THIS STEP#. 





254 3. CHECK STEP 3 IN 6.2.1. 
eS) 4. A “CNTRL C* WILL RETURN USER BACK TO THE KEYBOARD MONITOR. 







et? , 

268 ® NOTE: IF THE wut TO THE ADC’S IS OUT OF RANGE THEN THE NC11 
269 NO CONVERT FLAG WILL SET. THIS FLAG SETTING IS INDICATED SY 
270 7 a THE BELL ON THE PRINTER (A "CNTRL G’ WILL TURN OFF/ON THE 







275 7.0 MISCELLANEOUS 








Fe 

8 7.1 DEVICE BUS ADDRESS MODIFICATIONS 

f : 
280 NC11 at a LOCATION “NCADR” IF BASE BUS ADDRESS IS NOT 
cee 164999 
283 % VSVO1l : MODIFY LOCATION “VTVADR" IF BASE BUS ADDRESS (CHARACTER 
E84 GENERATOR) IS NOT 172 
28s MODIFY LOCATION “VTMADR” IF BASE BUS ADORESS (BIT MAP) 
286 IS NOT 172620 







28s VTOl MOD IEY LOCATION “VTAOR” IF BASE BUS ADDRESS IS NOT 
f 






230 ee oad 
231 ARL1 a a LOCATION “ARADR” IF BASE BUS ADDRESS IS NOT 


234 NOTE: A RESTART IS REQUIRED AFTER ANY OF THE ASOVE ADDRESS 
e3s MODIFICATIONS. 







e3$ 7.2 FREE RUN MODE (TYPE “F™) 


301 MODIFICATION OF LOCATION “TIME” WILL ALTER THE DATA COLLECTION 
202 I Nie Pee ton REE RUN MODE. THE DEFAULT VALUE OF 10(8) PROVIDES 
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MAI 
304 PAGE 7 
305 
ch 
39 7.3 ERROR REPORTING 
Et 1. INCORRECT KEYBOARD COMMANDS ARE RESPONDED WITH *?° 
311 @. ANY SELECTED DEVICE (SEE SECTION 7.1) WHICH DOES NOT RESPOND 
ats ON THE UNIBUS WILL BE INDICATED. 
314 
315 
313 7.4 EXECUTION TIME 
3:8 THE EXECUTION TIME IS COMPLETELY DEPENDENT UPON THE USER FOR 
ah3 WHATEVER OPTION SELECTED. 






3e3 8.9 PROGRAM DESCRIPTION 


326 8.1 DATA COLLECTION & DISPLAY 







327 

328 THE USER ey COLLECT DATA FROM THE GAMMA CAMERA SYSTEM VIA _ THE 
323 NC11 INTERFACE AND DISPLAY THIS DATA ON A VTO1 STORAGE SCOPE _OR 
230 THE VSVO1 (BITMAP) DISPLAY. ALL FUNCTIONS ARE ENTERED T THE 
ash KEYBOARD AS DEFINED IN SECTION 5.1. WHEN THE DATA 5 eee 






MODE IS SELECTED ie NC11 IS RECEIVING X 8 Y lt A FROM 
CAMERA (LOOKIN RA SOURCE). 








UNIQUE ADDRESS. THE PROGRAM SE 

238 CRESOLUTION e) OFFSET TO ADDRESS 2000918) FO SOTOPE 
333 AND FOR THE ’B’ i” TOPE, (CAMERAS EQUIPPED WITH THE DUAL ISOTOPE 
340 ATTACHMENT) INFORMATION VIA B GAMMA LOGIC IS sro STARTING AT 
341 ADDRESS 40000 (8). THE INTENSITY OF EACH CELL (MEMORY LOCATION) 
S42 OF THE IMAGE IN MEMORY IS ADJUSTED WITH WER 
343 THRESHOLDS CALED TO AN_INTENSITY LEVEL (3 FOR VTO1 AND 16 
44 FOR VSVOl1). THE CELL WITH oak HIGHEST COUNT REPRESENTS THE 
345 HIGHEST INTENSITY LEVEL, THEREFORE APPEARS BRIGHTEST ON THE 
Sue DISPLAY. AT THE COMPLETION OF THE IMAGE DISPLAY, THE FOLLOWING 
347 PARAMETERS ARE DISPLAYED: 







pa LOWER THRESHOLD- SISP.R VALUES GREATER THAN THIS VALUE ARE 
3$1 UPPER THRESHOLD- ALL VALUES ABOVE THIS vale ARE OMITTED 

3Se2 Z COUNT- . 32 BIT COUNTER OF A/D START PULSES 

SS, MATRIX COUNT ne ty i gl ll a CONTENTS OF ERCH CELL IN 
355 ZOON- DISPLAYED IF GAIN WAS SELECTED 


35é Z B-GAMMA- DISPLAYED IF °B’ ISOTOPE SELECTED 
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ee oe GAMMA 11 EXERCISER MACY11 27(732) 
DZNCB.P BASIC DEFINITIONS 












413 ; MISCELLANEOUS DEFINITION 
tt 990011 HT= i s3CODE FOR HORIZONTAL TAB 
UU = 
ug 8051 ; i] CODE FOr A GERRTAGE RETURN 
41 000200 - CRLF= 200 ; CODE PRRIAGE RETURN-LINE FEED 
419 177776 PS= «177776 tH PROCESSOR STATUS WORD 
413 .EQUIV PS, PSi 
- 177774 STKLMT= 177774 ;;STACK LIMIT REGISTER 
481 177772 PIRG= 177772 ; ;PROGRAM_ INTERRUPT REQUEST REGISTER 
432 177570 DSWR= 177570 ;HARDWARE SWITCH REGISTER 
423 177570 ODISP= 177570 ;;HAROWARE DISPLAY REGISTER 
485 ;¥GENERAL PURPOSE REGISTER DEFINITIONS 
28 900000 RO= 0 ;;GENERAL REGISTER 





434 REQUIV Re, SP STACK POINTER 
435 “EQUIV R7,PC ;PROGRAM COUNTER 






436 

437 ;*PRIORITY LEVEL DEFINITIONS 

438 00000 FRO= 0 ;;PRIORITY LEVEL 0 

439 000049 PRi= 40 ;;PRIORITY LEVEL 

440 po100 PRe= ;;PRIORITY LEVEL 2 
I 900140 PR3= 140 ::PRIORITY LEVEL 3 

442 0200 PRY= 200 :IPRIORITY LEVEL 4 

443 000240 PRS= 240 ssPRIORTTY LEVEL 

444 00300 PRb= 300 brEREORETY LEV 

25 000340 PR7= ;PRIORITY LEVEL ? 





463 000001 SWOO= 





WO6 , SWE 
SWOS , SWS 









DZNCR 


WIN UU UU 
TU d= 0-+ b+ bb bt 
OWONMTUM CUT 


MAINDES-11-D2NCB-C 
o') 





000002 
000061 


000920 
000100 
020000 


GAMMA 11 EXERCISER 
BASIC DEFINITIONS 





4A HAH 
OO ee 
POT Veen 


oo 
uno 
wut 
Oo 


* DOWOODDVODMOWMOMMWMOWwU- 
ee LamnLamplam aman Lame em Leeion Lon Lee Lonel 


mmr 


Qoo +3444 44444 
tatetatetatatey 
i , 


0-4 4 4 4 4 4 0 


on 
Uz 
ta 
<= 
m 
2 
1] 


E = 30 
yy hte 
TKVEC= 60 
TPVEC= 64 
PIRQVEC=240 


;SOME COMMON PROGRAM VALUES AND EQUATES 


€LALL=100 
MATRIX=20000 
SBTTL TRAP CATCHER 
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peDATA at! aaa (BITOO TO BITIS) 


= 


AAA AHH 
Or-MW cue 00.0 


—+ wow 


RAP VECTOR | ao 


- $3 7TY PRINTER VECTOR 
' 33PROGRAM INTERRUPT REQUEST VECTOR 








TIME OUT AND OTHER ERRORS 
eae | AND ILLEGAL INSTRUCTIONS 


2:3T TRACE T 

:: BREAK POTN NTT (BPT 

{INPUT OUTPUT aha (IOT) #xSCOPE*# 
:POWER FAIL 

EMULATOR, TRAP (EMT) *#ERRORS* 


:;TTY KEYBOARD VECTOR 







;CLEARS 2 REG AT REG is 
CLEARS NCLI AT REG 1 
STARTING ADRS OF MATRIX DATA 
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ek -11-DZNCB-C GAMMA 11 EXERCISER 
DZNCB.P11 = ——«-: TRAP CATCHER 


258 on ;#OLL piste LOCATIONS FROM 4 - 776 CONTAIN A ”.42, HALT” 

535 0 CATCH ILLEGAL TRAPS INTERRUPTS 

36 anche :ALOCATION CONTBINEE 2 TO CATCH IMPROPERLY LOADED VECTORS 
bas BbbiSe §800000 Glare’ “WORD + OFTWARE SUTTEH REGISTER 


$3 -SBTTL STARTING ADDRESS(ES) 
S34 000200. S00is? 001356 JMP QeSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 







lat at blames oe 1S EXERCISER MACY11 27(732) 








21-SEP-76 15:32 PAGE 12 


4 -SBTTL COMMON TAGS 
$37 Shab dgd-b-b-hal tab d-h-b-b-h-tabeh-b-4-b-toh-tab-b toot beleh-3-4-4-4-4-Dulahb-$-4-4--5-Set-delalalalelalalaledade 


tATHI TABLE gy db bf VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM 


TERETE TET PE PET EET TTT ETE T ETT TT EERE TT Pere Teen TT eT eT eT eT eter 


S42 001100 SCMTAG: ;START OF COMMON TAGS 
S43 001100 $PASS: .W 0 i CONTAINS PASS COUNT 
S44 0011092 000 STSTNM: .BYTE OQ TAINS ae TEST NUMBER 
545 901103 000 SERFLG: .BYTE Q EON NTAINE ERR 
28 001194 900000 SICNT: .WO 0 ; ;CONTAINS SUBTEST ITERATION COUNT 
S47 001106 900000 SLPADR: .WORD Q Pala SCOPE LOOP S 
S48 artes 000000 $LPERR: .WORD @Q ;;CONTAINS SCOPE RETURN FOR ERRORS 
S49 001112 000000 SERTTL: .WO 1] ;;CONTAINS TOTAL ERRORS DETECTED 
S50 001114 000 SITEMB: .BYTE OQ ;;CONTAINS ITEM CON 
551 001115 001 SERMAX: .BYTE 1 3 CONTAINS AX. ERRORS PER TEST 
SSe 901116 g00000 SERRPE: .WORD 9 :CONTAINS PC OF LAST ERROR 2 a 
553 001120 000000 GDADR: RD OQ ;CONTAINS ADDRESS OF °GOOD’ DAT 
SS4 BOLLS ppoe BDADR: .WY B 5 RONAN ADDRESS oF *BAD’ oATA. 
555 1124 00000: GDDAT: .LOR 3 CONTA NS *GO0D" DAT 
556 O011e6 000000 $BDDAT: .WORD QO ;CONTAINS ” 
S$? 001130 o00000 -WORD OQ :  RESERVED--NOT TC BE USED 
S58 091132 000000 -WORD- Q 
$59 001134 000 S$AUTOB: .BYTE 0 ;;AUTOMATIC MODE INDICATOR 
560 9001135 000 $INTAG: .BYTE OQ ;; INTERRUPT MODE INDICATOR 
56i 001136 900000 -WORD OQ 

S62 001140 70 SWR: - WOR DSWR ;;ADDRESS OF SWITCH REGISTER 
S63 001142 177570 DISPLAY: .WORD DDISP ;;ADDRESS OF DISPLAY REGISTER 
S64 001144 60 $TKS: 177560 ;;ITY KBD STATUS 
StS COll46 177562 $TKB: 177562 srry KBD BUFFER 
S66 001150 64 $TPS: 177564 ;; TTY PRINTER STATUS REG. ADDRESS 
567 90011 177556 $TPB: 177566 ;; TTY PRINTER BUFFER REG. ADDRESS 
568 001154 009 SNULL; .BYTE QO ;; CONTAINS NULL es bt FOR FILLS 
569 001155 002 SFILLS: .BYTE 2 SONA & OF Peter gee. REQUIRED 
570 001156 Ole SFILLC: .BYTE le ;;2NSERT FILL CHARS. AFTER A 

571 001157 000 STPFLG: .BYTE 0 ; TERMINAL "EAILABLE™ FLAG (B1T<07>=0=YES) 
S7e 001160 077 $QUES: .ASCII /?/ ; QUESTION 

73 001161 O15 $CRLF: .ASCII <15> 3s CARRIAGE RETURN 

O01ibe od000le SLF: (12> FEED 
















calla ghee GAMMA 11 EXERCISER 
ERROR POINTER TABLE 


AAA aaa tal 
RBIs RE ee” Bde 
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-SBTTL ERROR POINTER TABLE 


;*THIS L& corrnne THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
; *THE MATION 1S OBTAINED BY rene THE INDEX ht FOUND IN 
:#LOCA TON SITEM8. THIS NUMBER INDICATES WHICH art IN THE TABLE IS PERTINENT. 


im ach IER i Fue Face. CONTAINS 4 4 POINTERS SEL AINED AS FOLLOWS: 


;* 

:% e ssPOINTS 10 THE ERROR MESSAGE 
- :!POINTS TO THE DATA HEADER 
te OT tIPOINTS TO THE DATA 

te OF ::POINTS TO THE DATA FORMAT 


SERRTB: 
; THIS PROGRAM DOES NOT USE THE ABOVE ERROR TABLE 


sNC11 BUS ADRS ASSIGNMENTS - MODS ARE TO SE MADE HERE 
NCADR: 164000 

sVSVO1 BUS ADRS ASSIGNMENTS (CHAR GEN) - MODS ARE TO BE MADE HERE 
VTVADR: 172600 

sVSVO1 BUS ADRS ASSIGNMENTS (BIT MAP) - MODS ARE TO BE MADE HERE 
VTMADR: 172620 | 

;VTO1 BUS ADRS ASSIGNMENTS - MODS ARE TO BE MADE HERE 
VTADR: 176756 

;AR11 BUS ADRS ASSIGNMENTS - MODS ARE TO BE MADE HERE 
RRADR: 170400 








pas T}I-DINCExE__ GANMS LL ENERCISER MACYIL 27.732) 21-SEP-76 15:32 PAGE 14 . | 
é! sNCLL REGISTER ADORESS POINTERS 
B21 901176 164009 NCCSR: 184000 ; COMMAND /STATUS 
BEE 561305 seeds NCOFF: 164002 : OFFSET 
Sus (ae ane 1b Sha 
\ $ a  B | 
i ER EE MeL IES ipo 2 count 
ce Ssist2 fEISHE NOSFUN: i54014 Rs FUNCTIONS 
33 :VSVOL REGISTER RODRESS POINTERS (CHARACTER GENERATS 
Fz? O63214 72609 VTVORS: 172890 : CHAR STATUS 
B32 OStliis 172603 VIVEHP: [72602 CROSS HAIR POS 
pn RSiss= j>3e0s yrveos: i73609 FUSE POS 
Pa sVSVO1 REGISTER ACORESS POINTERS (BIT MAP) 
3? 6BSl2 L72b2 VTVCOSR: 172620 3 COMMAND / ‘STATUS 
eae abt es yisae: 155858 se RoR ; 
£35 551i3e I7ZGEs VTVPx: 172624 PIXEL WO 
B40 S0less i7etet VIVEXI: 17266 PIXEL SYTE 
ae Bbie32 }7=656 VTVINT: S726aC SINTENSITY LOOK UP 
| eo svT01 REGISTER ADDRESS POINTERS 
| §45 Q01234 i TET5s “TCHR: 175756 COMMAND “STATUS 
wig ra -T "a { rec 1 $7 60 Dac 
ea? saiese TSESEE VTYERE: 176762 ry Dat 
643 ARLL REGISTER ADDRESS POINTERS 
FEY oo1z42 170400 ARCSR: 17040 : COMMAND STATUS & CHANNEL 
ES SEiEss [75452 RRSUF: 170402 AD BUFFER 
od 





a ne eo —. a ee ee ee er ee 
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COMMON PROGRAM TAGS AND STORAGE LOCATIONS 


Bae 


wv 


ary 
£ 


oOo 


ys 
oOo 
Le | 


BEBESERR8 
Sta ea 


O--b-- 0 <6 +0 +0 2&6 o--p 


ute 


tua 


> 


ee ef 66 Ge 
YOXIOOWOAMTAVAOOoOwNo 


Roel 


. 
4 


het etapa 
Oo £rC®}d 


i 


a 
oo 


ee ee ee e . 
O00 £00+-O0000 


ptt sits 
Fa An 
oO 


Glelsislelsisisistetststatetermteistererslotstetatsy 
rat 


20-0 +0 b--0-- 6 -+ b+ 6 - 0-0 -- b— 0 -+ 2 8-< & — & 2 6-2) > bo 0-H 2 & B+ 


ee z . ~< 
OONG-0Z000 


© 

© 
CIGIGIG) 
avy 

+ 





; COMMON UTIL ETY Loe LOC 
: COMMON 
: COMMON UTIL 


;0=VvSV0 Mota =VT01 DISPLAY 

: TOTAL : INTENS ty Y EVES, 16 OR 32 

SINT EAL NTENSITY S 

SVO - FULL WS ReeN MONC(SLK/WHT), ENA OLSPLAY 
CURRENT CORE ADRS OF agen cEING OISPLA ED" 

:CURRENT ADRS OF mr ieee me 

;CURRENT P xe BY EE COUN 

34 PIXELS ASS RE "BEFORE SIT MAP LD 

pens 64 Rois F cry SOsIT ONS EACH ROW (VTOL) 

; COUNT vu DISPLAY 


Fos FOR VIO} Disp 

‘LON INS A HAR That EEC CONVERSION FOR VTO1 DISP 
:CONTAINS KEYBOARD CHAR TYPED 

:OUTPUT CHAR TO PRIN Her T 

LOW THRESHOLD VALUE APPLIED TO MATRIX CELLS 
HIGH THRESHOLD VALUE APPLIED “O MATRIX CELLS 

Buy ess NCI1 sor CONTENTS HEN DISPLAYING 

TOTAL 8 One CELLS IN MATRIX (ISTOPE @ OR 8) 

UNT 5" LS I 


: nat A IX 

;CONTAINS STARTING ADRS OF MA rele OF SELECTED ToOT Ore 

; NON-ZERO anK5 UT Era NEW DAT AS OrSrtay | N FREE RUN MO 
IGH R COUNT DELAY FOR COLLECTING DATA-FREE RUN moo 


‘HIGH ORDE 
sQaNC LL OES Tok. SOURCE =1=AR1 i JOYSTICK SOURCE 
:CONTAINS CURRENT ARLI CHAN & | UNIPOLAR 81T 

30 SAYS IST BIT M st SAYS END SIT MAPC) vovey? 


35 Zaye APNG BELL a NO CONVERT, -1 SAYS D2 














x 


tek 


So000ee80 S86888 BSSEESB BEBE 


> 20-26 >-- 0-6-6 8 0-0 +b + p-- 6-29 + +0-26-< 


& 


~) a | 
0) -8-€) 


CRO NO Ul.£ Lufue- 09.0 


« ae | “Pgs “gn 
TUN seso sete teseete ee te 


7ee 





Ba 


38 
Ob 0-2 6-—- —h p  oe 
Ho 


GIG) 


—o ~j~ 
twio rico 


RE 


Bae 


—- OOO 


ae 
xs 


[0 
tw an 
ee i 
ui 

wr tw 


Bae 
g 


ui 
E5EH 


901546 


=o 
fu 

as Nz 8 
Bro i: 


: 


x= 


000034 
Q90036 
000024 
000926 


c0C004 


000004 


177340 


MOV 
ss INITIALIZE A Fe vEctoR ORS op 
MOV 


seh tenia? 


MOV DBPWRVEC 
:;SIZE FOR A Lag SCF se 4 jUEVEL IF NOT FOUND OR IT IS 


: EQUAL A SOF THARE SWITCH REGISTER. 


64s: 
6S$: 
s&$: 


33: 
NCSET: 


18: 


H 
START1: MOV 
R 


MACYLI 27(732) 





ALIZE T 


-S8TTL MAIN PROGRAM 


ah 


mie 


an, R& ;;DONE? 


RRVEC 


F) (S 
#645, JSERRVEC 
eOSWR, SWRA 
8DDIS®, DISPLAY 
8-1, aSWR 


655 
#6S$, (SP) 


BSR 
sotepaee’n DISPLAY 
(SP)+, JBERRVEC 


be et cta 
PC, SELCTB 
33° 


.MSG3 
*MSG4 


No 
#1$, ERRVEC 


ancesr 


an ART 

(SPs, (SPDs 
MSGS 

BERRVEC+2, asennvec 


MOV sMATRIX SRCOPF 
CLR GAIN 
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COMMON TAGS 
~S gon (SCMTAG) AREA 







;;FIRST LOCATION TQ BE CLEARED 
;;CLERR MEMORY LOCATION 


eee tne atk POINTER 


VEC Ue VECTOR FOR TRAP CALLS 


Pcs FAILURE VECTOR 


Sve ERS OR VECTOR 
si5eT ERROR VECTO 
33S Me FOR A HARDWARE SWICH REGISTER 
7A HARDWARE DISPLAY REGISTER 
: TRY Fo REFERENCE HARDWARE SWR 
73BR ANCH IF NO TIMEOUT TRAP i 
THE HARDW SWR IS NOT 


: ;BRANCH IF_NO TIMEOUT 
;;SET UP FOR TRAP RETURN 


;;POINT TO SOFTWARE SWR 
;;RESTORE ERROR VECTOR 
;GO_ IDENTIFY Ay art 


;DEFRULT TO VSVO1 DISPLAY IF THERE 
;8R IF DISPLAY VSVOl IS THERE 
31 LOOK FOR VTQ1 DISPLAY 
R IF AT LEAST THERE IS A VTOL DISPLA 
399 TYPE *BUS TIMEOUT ER - VSVQ1 DISPLAY’ 
TYPE *BUS T T ER - VTQ1 DISPLAY’ 
NO pee antes AT ASSIGNED BUS A0RS’S 


NCil 
GET POINTER ADRS 
:SET UP NCI1 REG AORS PTRS 
;BUMP_REG ADRS 


ADRS 
SWELL TRAP _ TO LOC 4 IF NOT THERE 
BR IF i 
sFIX STA CK SINCE NO RTI 
;G0 TYPE "BUS TIMEOUT ER - NC1L 
NC11 NOT SEEN AT_ASSIGNED Bus. ORS 


;CLR W 

G0 STOP NC1L $ CLR CORE MATRIX 
:SET ee 20000) 

:REGULAR GAIN 





;RESTORE ERR TRAP LOC TO PT TO & 





MAINDEC=11-DZNC8-C 


DINCB. P11 
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oe as 301340 
oy Baie 001314 
oe BORles 90026 
Hp peniey 383 
S13s43 


a wm ee ee ee ee ere 





oy sMATRIX, TABLEX 


Roy Lib oeze. rae ts fe ape 

watt + vec T KEYBOARD INTR RETURN ORS 
nay 139, ThE Ete iE et NEW W PRIORTY ON INTR 
TYPE MSG ee G0 ASK FoR KEYBOARD COMMAND (S) 










o-=p 
or 


SHO 


é 


= b= 0 0 0 0 2 he 
Wistetpteiatal 





- “DINCB-C_ GAMMA 11 E 
INITIALIZE THE COMMON 


001306 
000i91 


Arne 
09033 
001776 
001776 


got tae 27( 732) 


;THIS IS A LIST OF KEYBOARD COMMANDS FOR THE NC11/DISPLAY/JOYSTICK 


25 <DDDWNOWOZEEHMO 


SO OF Oe OF C8 SF OE OE OF BE OE OES OF Oe Os ee ee ee 


OO4Ren 


; CNTRL 
:CNTRE 


;THIS CODE WILL DISPATCH PROGRAM TO THE PROPER 
JROUTINE VIA we TABLE "RTABLE? 


’ C 
LISN: MOV 
8 


;KEYBORRD DISPATCH TABLE 


RTABLE: ROUTA 
ROUTB 


21-SEP-76 15:32 PAGE 18 









ASPLAY DAT 
RAS SCOPE 
GET LOWE FRESHOLD D FROM KEYBOARD & DISPLAY DATA 


Aa ona ERa (cLeAR CORE ATRIX) 





SPLAY 
DISPLAY (DEFAULT USING 1ST BIT MAP) 
ISPLAY AND USE 2ND BIT MAP 
- COLLECT & DISPLAY NEW DATA CONTINUALLY 

sade USING ott 
| NG NCil 

1 InaGe ON SELECTED DISPLAY 
KEYBOARD MON 

SNVERT INDICATION) - IN NC11 
; JOYSTICK CALTBRATION ONLY 










N KNOCK DOuN FREE RUN MODE IF SET 

aSTACK, SP RESET STACK PTR 

KBUF INSURE NO KEYEOROO. GARBAGE 
oid ALLOW KEYBOAR O INT 

KBUFF RO ;LOOK FOR CHAR 
LISN WAIT FOR 

KBUFF : 
RO. #101 ;HAS IT A SHAR? 
Bods00 NOT A GOOD C 

#177740, RC FEIN MATE LSUER cas CASE 

RO, #33 
B0OB00 





;BR IF NOT 
RO ;MAKE_UP WORD OFFSET 
RTABLE-2(RO) 31S IT A LEGAL COMMAND? 


BOO800 F NOT 
@RTABLE-2(RO) 









:BR 
G0 00 IT 


ISPLAY ISOTOPE A 
ISPLAY ISOTOPE 8 
OLLECT DATA 


Own 


I 

RASE SCOPE 

REE RUN MODE (COLLECT NEW DATA & DISPLAY CONTINOUSL 
NLA IZe EVERYTHING 


ee ee ee | 


anCOonmo 


| 


wo 
2 
© 


ec ee er ee ee ee ee ee ee ee 


B00 
GO TO ARIL JOYSTICK CALIBRATION 





nemrneneen 
1 0.000 SUT £ Lore 


fein Eo lcemias 


o02024 


iohierorarsrouret 
PFU LOLOLO LOWE 


002172 


nOS876 


ALice tHE ¢ 


oosS 
005440 


004146 
013577 
001732 


001310 


001340 
001340 


001342 


001306 
001306 


176746 


OMMON comand 


RCISER MACY11 271732) 


0 
ROUTZ 
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;’K* GO TO NC11_ JOYSTICK CALIBRATION 


th sEletT vovol BicPe AY ND ti 1e9ee0 BIT MAP 
:'N? GET NEW DATA FROM C 


:7R) REGULAR GAIN 
tsF) BrepLave INTENSITY TEST IMAGE ON SELECTED DISPLAY 
t+ REP UPPER THRESHOLD PROM ne yaooRE _ 
feye SELECT VTOl DISPLAY 

iW" SELECT VSVOL DISPLAY (DEFAULT COND USING 1ST BIT MAP 


; BO0B00 
;’°2’ ZOOM - SET GAIN TO 1 


;REPORTS ILLEGAL KEYBOARD CHARACTERS 


BOOBOO: pad 


ROUTA: 
ROUTB: 
ROUTC: 


ROUTD: 
ROUTE: 


ROUTF : 


1$: 


es: 


ROUTG: 
ROUTJ: 


1$: 


seni ia 


;SET UP _°?° 

: TYPE | a 

:D0 A’ 

G0 LOOK FOR GOOD CHAR 


" HILL DISPLAY ISOTOPE A 
anal RiX+20000, TABLEX HILL DISPLAY ISOTOPE B 


SSufeer ona wyrT KEYBRD COMMAND 
:80 pisekre DAT 


:G0 WA se Score COMMAND 
t'FRE 


'SELEC 


;GO STOP_NC11 & CLR CORE — AREA 
ip STaRT ART NC11 


TIMER 
;SET GROSS TIMER VALUE” 


{WAIT FOR ZERO 
LOOK FOR ropes STOP KEY - RID LOWER CASE 
pes ay STR 


$STOP NC1I 
42 


0 NC_CSR 
:G0 AWAIT ie COMMAND 
300 L TP 50" GAIN? 

;NOW GO DISPLAY DATA Ye yrOLLECTED 
:G0 ERASE SELECTED DISPL 

SINITIALIZE AND START FRESH 

GO SELECT AR11 FOR JOYSTICK CAL 
;BR IF BUS ER FROM AR! 


0 IT 
60 TYPE 'BUS TIMEOUT ER - ARI" 
:GO BACK TO KEYBOARD LISEN 








XERCISER = 27 (732) 


177776 ROUTL: 


TYPE 


JOY 
#PR7, PSW 


,MSGe 


(SP)+, THLO 
PSW 


CHANGE 
#-1, MSELCT 
PC, SELCTR 


VTVCSR, RO 
#8178, ~20(RO) 
LISN 


MSG3 


c§ 
PC, NCSTP1 
COSRV, aNCCSR 


N 
#40, JNCCSR 


#3, JNCCSR 


JNCCSR 


LISN 
Fc LOINGE 
CHANG 


#PR7, PSW 


,MSG2 


(SP)+, THHI 
PSW 


CHANG 


a 
PC,SELCTB 
es 


LISN 
MSG4 
i$ 


MSELCT 
PC, SELCTA 
es 


VTVCSR, RO 
#8178, 20(RO) 
LISN 

MSG3 
i$ 


#40, GAIN 
GAIN, INCCSR 
LISN 
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ote e SAYS NC11 FOR JOYSTICK CAL 
DON’T WANT_ANY ae S NOW 
sASK FO ae CTAL DA 


AVE 
ENABLE og S 





MAP 
;G0 SELECT vSVOl 
;BR_IF eS FROM VSVO1 








; COLLECT DATA & AWAIT NEXT KEYBRD COMMAND 
;WANT REGULAR ann 


; INSURE REGULAR 
;LO0K FOR NEXT COMMAND 





OP 
; ZERO 


NC _CSR 
s;LOOK_FOR NEXT COMMAND 
;G0 STOP THE NC11 IF RUNNING 
.. Fu CORE IMAGE 


;GO 


:G0 DISPLA 

’T WANT Any INTR’S 
sASK FOR OCTAL DATA 

G0 GET IT 


:SAVE IT 

ENABLE INTR’S 

GO DISP wr 

GO SELECT VTO1 

:BR IF itu ER FROM VTO1 

MEOQUT ER - VTO1 DISPLAY’ 
D LISEN 


;DON 






:G0 AWAIT NEXT COM 
G0 Type *BUS TT 
:G0 BACK TO KEYBOARD LISEN 
:ENA LE GAIN | 

:SET IT AT NC CSR __ 
$85 AUALT NEXT COMMAND 





MAND 
MEOQUT ER - VSVO!1 DISPLAY’ 





1-DZNCB-C_ GAMMA 11 E 
INITIALIZE THE 


z 
at 
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;G0 CLEAR SCREEN OF SELECTED DISPLAY 
004737 005536 CHANGE: JSR -. PC,ERASE ;GO ERASE SCOPE 
;STOP NC11 AND GET SET TO DISPLAY 
004737 oO05464 DISDAT: JSR PC, NCSTP ;G0 STOP NC1I 
;NOW DRAW_A_BOX ae MATRIX DISPLAY 


jARER ON THE SELECTED ISPLAY 
001254 . - BOX Ist Dry : WHAT eOiseLay? 


= | 
ona ti 
——— 

ms lap) 


fofutute 
jWru-Ow0o-~s 


sy 


:BR_IF 

:SET UP BIT MAP ADRS - TOP LINE 
:SET UP fig — IN Rl - INT 7 
:G0 LOAD BIT 


83038 
“J 


IF SO 
:LOGD NEX NEXT PIXEL WD 
:SET up BIT MAP ADRS SIDE LINES 
OFFSET NEXT ROW 
:SET UP PIXEL 3 DATA IN RI - INT 7 
:AT BOTTOM OF EN? 
G0 START VSVO1 DISPLAY 
:GO0_LOAD elt MAP 
:SET UP PIXEL 0 DATA IN RI - INT 7 
-OFFSET TO RIGHT LINE 
360 LOAD BIT MAP 
BR t :D0 NEXT ROW 
001262 176234 6S: VIVSAV,aVTVCSR START DISPLAY 
002010 d01266 #2010,MAPADR § ;OFFSET BIT MAP ADRS 
000003 001270 #3, PIXCNT SET UP PIXEL BYTE COUNT 
001272 PTXASM ‘CLR PIXEL ASSEMBLY WORD 
003132 JMP PARCES *GO DISPLAY CELL DATA 


003777 : #3777, RO ;SET UP X 

003636 M _ #36367R1 :SET UP Y 

005676 : PC, DISPY1 sDISPLBY POINT 
is , ;AGAIN TLL DONE 

005676 : PC,DISPY1 t OTSPLAY POINT 
RI :MOVE Y BY | 

000635 CMP #635,R1 AT BOTTOM LEFT? 
2g BR. IF NOT 


° 


Rl =0 
005676 : PC, DISPY1 tOTeBRAY POINT 
RO MOV X BY | 
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po4oo0 #4000, RO sAT BOTTCH RIGHT? 
~) 


R 
PC, DISPY1 ea PRINT 
R1 sMOV_Y BY 1 
Me #3638, »R1 ;aT TOP RIGHT? 
001274 #100,HORIZ 3 OF HORIZONTAL POINTS PER ROW 


001276 Pa #100; VERT 0 
X F’ START AT LEFT MARGIN 
001302 #1926. , YREF sAND TOP OF SCREEN 


“NOW LETS FIND THE LARGEST CELL 
001304 {ARGES: MOV TOTSIZ, CHARCT :NUMBER OF ELEMENTS TO CONSIDER 
MOV JTABLEX, RO THIS IS EIRST GUESS 
M X.R1 *R1 POINTS TO TABLE 
LARGEL: CMP RO tase. COM PARE GUESS AGAINST NEW 
:GUESS STILL G 
‘GUESS SMALLER BUT CHECK NEW 
SHI AGAINST UPPER THESHOLD 
MO “WITHIN BOUNDS. MAKE THIS NEW HI 
OVTHHI: (R1) INCREASE REGISTER BY 2 
GSG: ‘COUNT THIS LAST COMPARISON 
BNE LARGEL 


; THE LARGEST CELL WITHIN THE UPPER THRESHOLD IS NOW IN RO 
NOW ACCOUNT FOR LOWER THRESHOLD | ° Boe oY A + TOO SMALL 


HRESHOLD 
ELL VALUE GREATER THAN LO THRESHOLD 
JMP DISDON ‘DON? T DISPLAY-ALL VALUES BELOW LO THRESHOLD 
1S: MOV RO, CPERL ;SAVE LARGEST CELL OF MATRIX 


;NOW PICK OUT EACH VALUE IN CORE MATRIX AND SCALE TO THE 
;PROPER INTENSITY LEVEL. THEN DISPLAY IT ON THE SELECTED DISPLAY 


001340 901264 DMATRX: MOV TABLEX,MRXADR ;BEGIN AT TOP LEFT 
017600 COl2eb4 ADD , ; OFFSET TO BOTTOM of “CORE MATRIX 
000100 001336 MQ , ; THERE ARE 64 CEL RR 
176024 DISLOP: @MRXAROR , Re :GET A ate VALUE FROM MATRIX 
000002 001264 AD 2, MRXADR :BUMP_ MATRIX “oo 
001336 ROWCNT ;COUNT CELL THIS R 

BNE hy LR BR IF ROW NOT FINISHED 
000100 001336 RESET NEXT I COUNT 
000400 001264 S SET UP FOR NEXT ROW IN MATRIX 
001314 CKVALU: é Re, THAI iBeir'hor HI THRESHOLD? 


001312 ;SUB LOW THRESHOLD 
BH SCLCEL sBR IF CELL Fate LOW THRESHOLD 
001254 OUTLIM: - DTYPE ; WHAT DISPL 


IF vol 
SET a, TO LOWEST INTENSITY 
003504 JMP MAPLD ;LOAD BIT 
001334 SCLCEL: sNOW ESTABLISH rig INTENSITY LEVEL 


000006 MO #6,R3 SCALE TO ge L 
001254 :1S IT A vavol DISPLAY? 
BNE 1$ :BR IF NOT 


TO 
MCWMe-oO 


—-OwWOonNo 





DONeB PIL. 


1029 


BASENOTES 


222229 


003336 


-DZNCB-C__SAMMA 1 


INITIALIZE tu 


001254 


011364 


001300 
001302 
Ob2le 


000040 
001274 


000100 
001300 
009030 
001276 


003652 


001266 


001272 


XERCISER 
COMMON TAG 


001300 


001274 
001302 
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;SCALE TO 16 ves ON VSVO1 DISPLAY 
LEVEL 7 ee IN 
;MUL BY 


COMPARE THIS CELL TO LARGEST (DIVIDED BY 2) 
;BR_IF SMALLER 
CHECK gAse WHERE 0 DIVISOR 


;BR 
srecount FOR GOOD SUBTRACTION 
NOW DO THE SUBTRACTION 


rae DIVISOR SMALLER 

COUNT POSITION 

AGAIN IF NOT nee TO 16 OR 32 LEVELS YET 
ACCOUNT FOR REMAINDER 

BR IF TOO SMALL 


Ati oop: 
CMP 


Y? 
MAPLD VO1 GO LOAD MAP 
RY ;MAKE LEVEL A WORD POINTER 
LEVTAB-2(R4),RS ;POINTER TO CORRECT LEVEL 
RY RESTORE ACTUAL LEVEL 
CHDN iIF 4 - DON’T DISPLAY 


; THIS CODE DISPLAYS EACH SCALED CELL ON THE VTOL (ONE OF 32 LEVELS) 


“MLOOP: MOV XREF,RO ;GET READY TO DISPLAY 
- MOV YREF.R1 


:THESE ARE THE CORNER oo 
:GET_A POINT AND DISPLAY IT 
:D0 AS MANY POINTS aS THE LEVEL 


;SHIFT TO NEXT POSSIBLE DATUM 
:DONE WITH LINE? 


:N 
;RESET LINE COUNTER 
3D0 LF 
NE PAGE? 
:NO. GO BACK FOR MORE 
DISDON: IMP PATWRT :YES, GO DISPLAY PRAMETERS 
;THIS CODE DISPLAYS EACH SCALED CELL ON THE VSVO1 (ONE OF 16 LEVELS) 
MAPLD: MAPADR, RO ;SET UP BIT MAP ADRS 
TS RY :LOOK FOR NO INTENSITY 
1M Ze NO_ INTENSITY 


TQ 0-17 
1$: PREPARE FOR PIXEL LOC 
R ; MOVE TO TOP 4 BITS 


‘NOW ASSEMBLE THIS PIXEL INTO PIXEL WORD 
;NOM MAKE ROOM IN PIXEL WORD 


PIXASM 
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001272 ALD R4, PIXASM sADD THIS PIXEL TO OTHERS 
001270 Ist PIXCNT ieut pe XELS DONE FOR THIS WORD? 


2 
PIXASM, RI ‘LD PIXEL WORD INTO RI 
ISPY : IT MAP 


22388838 


0 0-- bb = po p= pp ee 


23 


PIXASM 
001270 #3, PIXCNT 
; NC MAPADR 
MAPADR, RO NTO RO 
#5770, R0 ie ALL 64 ROWS BEEN DONE? 


MP PATWRT ;NOW GO DISPLAY PARAMETERS 
38: #177740,R0 ; SAVE ROW POSITION BITS 
MP i RO BR Per FOR END OF ROW 


T AT END 
#20 MAPADR ADVANCE MAP ADRS TO NEXT ROW 
003234 4$: JMP DISLOP GO GET NEXT MATRIX DATUM 


;CODE TO WRITE PARAMETER DATA AT BOTTOM OF SCREEN 
001254 PATWRT: TST DTYPE ;WHAT DISPLAY? 
012000 175322 ROY ata taht dt - SET CHAR POS,LINE 20, LEFT MARGIN 
001332 15%: MOV #6, INCXY SET CHARACTER SIZE 


175320 MOV #14, aVTCSR 
001326 OV #0, BAS :SET TO LEFT HAND MARGIN 


M x 
001330 MOY #384. , BASY “AND Y LEVEL 


JSR PC, VTWRIT 

ME :"CR,LOWER THRESHOLD” 
001312 008724 MOV THLO, DUMMY1 
006700 JSR PC, AWRIT 
006246 ER PC; VTWRIT 


001314 cOs7e4 MOV THHI, DUMMY 
006700 JSR PC, AWRIT 
006246 JSR PC, ‘VTWRIT 
175204 006724 MOV @NCZLO, DUMMY 1 
175174 006726 MOV JNCZHI,DUMMY2 
006704 JSR PC, OTTY 
006246 JSR PC, VTURIT 


MESS 
O0i3s2e O0le4%6 MOV TOTSIZ, TEMPO 
CLR Re 


0000 
BBV 


;"CR, UPPER THRESHOLD” 


;"Z COUNT = 


;"MATRIX COUNT=" 


CLR R3 
001340 MOV TABLEX RL 
= BOD, (RLF R ;NOW ADD UP ALL VALUES IN MATRIX 


001246 DEC TEMPO 
E MXSML 
006724 


006726 2, 
004064 004737 006704 JSR PC,OTTY 


1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
111i 
lile 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
liel 
llee 
1le3 
1124 
1125 
1126 
1le? 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
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001320 TST GAIN 
BEQ 1$ 
o06246 JSR_PC, VTWRIT Ase 
001340 O40000 1S: CMP ABLEX, , WMATRIX+20000’ ISOTOPE 8? 
006246 JSR PC, VTWRIT 
MESS6 


30 
YES 
001342 2$: TST FREERN san 


MMA” 
i ht MODE? 


5 
JMP ROUTF ce GO GET NEW DATA 
9137 175034 38: MOV COMSAV. JNCCSR “RESUME THE NC11 
000137 IMP LISN :DONE WITH MESSAGES 
sTHIS CODE DRAWS A BUG(VTO1) OR CROSS HAIRS (VSVO1) WITH THE X & Y DATA 
RON THE NCLI(TYPE °K’ OR DEFA 


OBO UT LO oe OT 


wou 


A WITHIN THE D 
:BE ACCESSIBLE IN A UNIFORM MANNE 
A CNTRL ’C’ WILL GET USER BACK TQ_KEYBOARD MONITOR 
004146 004737 005536 toy: JSR 


Bc ERASE S78 T FRESH 
095737 001254 S TST DTYPE WHAT DISPLAY? 


001053 BNE JBOX1 :BR IF V 
ae UP ON VSVO1 SCREEN FOR NC11 OR ARI1 JOYSTICK CALIBRATION 
CLR RO ;SET UP BIT MAP ADRS - TOP LINE 


073567 aol i #73557,R1 :SET UP PIXEL DATA IN RI - Int ? 
005634 PC, DISPY ?GO LOAD MAP 


ooco40 : CMP #40, RO 
OOS646 PC, , DCONT 


: MAP LOAD 
007740 : #7740,.RO -SET UP a MAP ADRS - BOT LINE 
00534 PC, DISPY 6 AD BIT MAP 

: R ‘ADVANCE ADRS 


010000 ' #10000, RO i807 LINE DONE? 
OOSE46 PC, DCONT ; LOAD NEXT PIXEL WORD 


B : NEX 
o00040 : a0 RO ‘SET uP BIT MAP ADRS SIDE LINES 
: :SET UP PIXEL 0 DATA IN RI - INT? 
He BISPY :G0 LORD obit MAP 
#70000, RI: :SET UP PIXEL 3 DATA IN RL - INT 7 
‘OF ESET TO RIGHT SIDE LINE 
Pe. ”BISPY :GO LOAD BIT MAP 
RO’ GO TO NEXT ROW ON LEFT 
007740 #7740, RO ;10 BOTTOM YET? 


004276 013777 O0leb2 174716 VTVSAV, JVTVCSR ‘ENABLE BIT MAP 
004304 OCOO4E6 BR DISBG ;CONTINUE TO ANALOG DATA 


;DRAW BOX UP ON VTO1 SCREEN - DIFF SIZE FOR ARL1 JOYSTICK CALIBRATION 
004306 005737 001346 JBOX1: TST JTYPE ;AR11 ANALOG SOURCE? 
O0431e 100432 BMI JBOXe :BR IF SO 


62 
$3 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
30 
81 
82 
83 
84 
8S 
86 
87 
88 
89 
30 
91 
Se 
33 
34 
95 
96 





=11-DZNCB-C 
1 INITIALI 


100374 
000431 


ely 
004737 
005200 


100374 


005737 


001004 
C0S037 


003761 


005675 


003761 


005676 


005676 


005676 
003771 


005676 
603771 


005676 


005676 


001346 
000032 


174460 
040000 
000007 
001306 
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Ze THE 


005676 










or “r ;X=0 
1S: eh Be pIsPY1 Se ay eatd 
RO VANC 





C #3761 ,R0 OUT TO RIGHT LIMIT? 
BNE 1$ iBR 4 a" 


RO =3760, Y=0 
2s: JSR PC, DISPY1 OT SPLAY POINT 
Ri : ADVANC 
CMP #3761,R1 :UP TO TOP YET? 
2 ‘BR IF NOT 
DEC Ri X=3760, Y=3760 















33: JSR PC, DISPY1 ‘DISPLAY POINT 
DEC RO EX 
BPL 3$ iBR IF sgt TO TOP LEFT 
INC RO ? 
4g: JSR PC, DISPY1 ‘DISPLAY POINT 
DEC Ri “ADVANCE Y 
BPL 4g ‘BR IF NOT TO BOT LEFT 
BR CISBG ‘CONTINUE TO ANALOG DATA 
-AR11 BOX IS LARGER 
yeoxe: LR RO X=0 
CLR Ri :Y=0 
1S: ISR PC, DISPY1 par POINT 
INC RO ADVAN 
CMP #3771,RO OUT TO RIGHT LIMIT? 
BNE 1$ 3BR IF NOT 
DEC RO =3770, Y=0 
23: JSR PC, DISPY1 tO TSPLAY POINT 
INC 1 : ADVANC 
CMP #3771,R1 iu TO FOP LIMIT? 
BNE 2 NOT 


DEC Rl :X=3770, Y=3770 


38: ISR PC, DISPY1 :DISPLAY POINT 
DEC RO VANCE X 
BPL 3$ 'BR IF NOT 10 TOP LEFT 
INC RO X= 
4g: ISR PC, DISPY1 ;DISPLAY POINT 
DEC. . RI NCE Y 
BPL ~ 4g ‘BR IF NOT TO BOT LEFT 


;WHAT SOURCE? 
AR1 


JTYPE 
BMI DISBG1 :B 
:EXT, ree & ENA ADC 
T_IF SET 


B 
MOV ae @NCCSR 


1S MOV O° INCSFUN CLR’ TIME 0 
MOV a4 ANC SFUN ‘START CONVERTERS 
2S: TSTB aN NeesR sDONE? 
BPL § BR IF SO 
BIT w0000, NCCSR ; CONVERSION FAIL TO FINISH? 
CMP #7, KBUFF : TURN ON/OFF BELL? 
BNE 10$ 
CLR KBUFF CLR OUT BELL CODE 
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BELLEN 
SEEN 
1207, TTYOUT 
nt TYPO 


SRCARES. Ua 


#100290 TEMP 
PC xvave 
ai), aycSFuN 


ee 
$ 


Pe ayrCSR 
PC Ors 


l 
PC DISPYe 
1$ 


nee 


:YES, DOT 
: SOUND gett ON NO CONVERT? 


Doehaiae VALUES 


Ik VALUES 
SLB rt ef “ogpRes 23 a°Br ke 
3LO0k : FOR SUTT 


: I NOT 

s;DON*T MOVE BUG SUT REFRESH 

REFRESH viol ¢ WC Loe veneen 
0 NEED _ON 0 


L gy 
iat pos SCALING IF VSVO1l 


3 SWVERT DATA FOR VTOLl 
;RID GARBAGE 
$61 x 


i¥TOL REGUIRES X 8 Y TO BE INFLATED Sr 


LECT WRITE THRU MODE 
Rie Lay THE BUG - VTOL 


BYSPLAY CROSS HAIRS - vSvO! 
D0 ANOTHER CONVERSION 


;THIS CODE LOOKS AT THE AR11 FOR ANALOG DATA 


s20000, ARCHAN 


ARCONY 
TEMPO 


;SELECT CHAN 0 8 UNIPOLAR 
360 START A/D - CHAN 0 


. Y 
>SELECT CHAN | 
:60 ae Q/D = CHAN 1 
SELECT 
Fart ap CHAN 2 
iREAO POSTE BUTTON INDICATOR 
BND x IN LO BYTE 
:G0 AVG LAST 32. X-Y JOYSTICK VALUES 
:LDOK FOR BAR DOWN (ZERO COND) 


T DEPRESS 
sDON*T ye POINT BUT REFRESH 


NEED ON VSVO1 
TEACH DISPLAY SCALES DIFFERENTLY 
SR IF VSVOL 
; INVERT FOR VTO1 
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+ (00D ~ PUT -£ Gstue-Cd 


C10 
vu 


oo 





mt rEac Te toe Sonne ISER 
1) 


13708 


me 


MACY31 27(732) 21-SEP-76 15:32 


D:D-4—4 
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_— so ae 
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- De- Dass O22 DO 


2 en ee we: ee ee ee eee ee 
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;GET x 


SCALE Y BY 8 


{SELECT WRITE THRU MODE 

:60 oiSPLAY THE BUG - VTOi 

00 AGAIN nie 
G0 DISPLAY CROSS “AIRS - VSVOL 
D0 AGAIN 
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901166 
001214 
000002 
O0le2e 
001170 
001352 


000029 


000002 
a 


001234 


001254 
000620 


000304 


001172 
001234 


000902 
001242 


005350 


177777 
000006 
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-SBTTL PROGRAM SUBROUTINES 
Petrrristerrerititetistitesti tri trititittiitiisttittistiiterees 
s ROUTING sehects vSvOL Oia AY - SETS ‘ BUS ADRS AND INTENSITY LEVEL 
AND INTENSITY LO E - THE CARRY BIT IS SET ON EXIT IF THE 2 
:VSVOL IS NOT SEEN at THE ASSIGNED BUS ADDRESS 


5 PERERA AAAAA SHALE LERALEAAL ALLA ER ERL LAE RAL LALA LALLEAALALAFAAL ESS 


desta: MOV VTVADR, RO :GET VSVO1 BASE ADRS 
MOV aVTVCRG, RI ; I R 
1$: MOV g,(R1)+ T UP REG ADRS PTRS 
ADD #2. RO ‘BUMP REG ADRS 
CMP aVTVCSR,R1 :CHAR GEN REGS ALL SET UP? 
SNE :BR IF NOT 
MOV VTMADR, RO GET BASE ADRS B {BIT MAP 
TST MSELCT :USING SECOND MAP 
BEQ 23 :BR IF NOT 
ADD #20,R0 “POINT TO 2ND IT Ma MAP_ADRS*S 
23: MOV °0, ikl)+ :CONT INUE TO BIT ADRS’ S 
ADD RO :BUMP REG ADRS 
CMP scteeR, R1 ‘ALL SET UP? 


BNE :8R IF NOT 
MOV 853 QUERRVEC :SET UP BUS TIMEOUT RETURN ADRS IF NC vSvO1 
- TST avTVcR 31S CHARACTER GENERATOR THERE? 
TST av TVeRR :I5 BIT MAP T 
MOV NT UT, RO :SET UP BRS 8 BSTA OF INTENSITY LOOK-UP TASLE 
3$: MOV VIVINT SET UP_T 
ADD 4 cat R ROVANCE sabes & INTENSITY 
BIT tsa RO : TABLE LO ADED? 
BEO :8R T 
CLR DTYPE TYPE =O SAYS VSVO1 
MOV #16., INTENS :MAX I6. INTENSITIES 
CLC : ZERO CARRY SRYS VSVO1_ THERE 
3: MOV BERRVEC, DUERRVEC sRESTORE ER TRAP LOC TO PT TOs 


5$: CMP 


;EX 
(SP)+, (SP)+ sFIX STACK SINCE NO RTI 
BEC us scAR Rey Y 9h EXIT SAYS NO VSVO1 


5 LEELELELAELKL RELL RLLAASELE LAKE 


UT SELECTS yi DISPLAY - SETS UP BUS AORS AND INTENSITY | 
;THE CARRY BIT IS SET ON 


ASSIGNED BUS ADDRESS 


pORSSDEDESSOREREUSSSUREANAEREROUSERLBUBNOROLESELEREEREARERODRODS 


dtr C TB: MOV :GET VTO1 BASE ADRS 
MOY aviCehe R, :GET PTR ADRS 
1$: MOV Ri} :SET UP VTO1 REG ADRS PTRS 
ADD :8U MP REG ADRS 
CMP 02D Rl ALL SET uP? 
BNE ‘BR IF NOT 
MOV 038, DBERRVEC SET UP FOR VTO1 TIMEOUT 
MOV #14 ayT CSR :SELECT STORE MODE 
MOY #32: , INTENS s AX 32 INTENSITIES 
MOV 8-1. OTYPE :DTYPE=-1 SAYS VTOl 
CLC “ZERO CARRY SAYS vtoL T HERE 
28: MOV BERRVEC#2, OUERRVEC sRESTORE LOC 4 PTR TO PT TO& 











RERERRERARAREREAEA RES CARE REA EERES 
LEVEL - 





EXIT IF THE VTO1 IS NOT SEEN AT THE 
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001174 
oole4e 


000002 
001246 
005434 
173626 

177777 


C0000 


001001 
001320 
000002 


173472 


OOS464 
000020 
020000 


060000 


001254 
CO0di& 
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(SP)+, (SP)+ 


2s 


Tee ee TTT a ENTS an AETE UP Bn AOaG PO TLL ToeaTIon C 
Fie ee ae: nore fe FOR S Bid JOYSTICK CALIBRATION 


tate Ae Ld Sein 


Al 
anc R} 
Ride 


teh 


1 
3 aB8ERRVEC 


ARCSR 
#-1,JTYPE 


BERRVECE, ,anravign 


es 


¢ RAHA SARALAFLAELELELAL LEAL LE LELA ASAE LEELA ALALERLRLLELELALALEFEE 


ROUTINE STARTS NC11 AT SELECTED GAIN 
sazegessineessOuaazeeeesnsibetoedanttevetsy teneessasaaseenasaaay 
;SET UP a MATRIX AND ACC ENABLE 
:SET UP GAIN 
:SET BI 
;RETU 


eee OUTING STOPS NC1l AND cAVES Nell STATS SS 


UTINE STOPS NC11 AND SAVES NC11 STATUS 
saeeuninosutsesrersetuansbattsssnestacnsszesesnessessses 


i SAVE ay INTERFACE ACTION 
PERO ALL STATUS 
; RETURN 


@NCCSR, COMSAV 


3, aNCCSR 
R 


eames oT yea ee oe 
UTINE STOPS NC11, SAVES STATUS AND CLEARS MATRIX CORE AREA 
anenooasndttetteaaneitbetaperitritabecctttenert aaah 


Wel. SNCSEUN 


anATAIX 


(RO)+ 
RO. sAMATRIX*40000 
PC 





S AND 
ON EX 


ioeRO Z_REG ¢ 
sGET 


iReTU ORN 


5 RELAAERALAA REALE LAAAALAL LAE RALALAAARAASSALALEAAAALAARAAAAAARATAS 


;ROUTINE WILL ERASE DISPLAY (VSVO1 OR VTO1) 
sgpppeesdinnnesaeguanatnetnenebaansteteeaaaiedteesaaeneneenae 


DTYPE 


es ;BR IF Q1 
#16, aVTCSR sERASE DISPLAY 







sFIX en SINCE NO RETURN 
;CARRY SET SAYS’ NO VTO1 DISPLAY 






T pale abren ADRS 
'GET P 


; SET ff MaEG AORS PTRS 
BU REG ADRS 
L SET UP? 


a et tipeput RETURN ADRS IF ARL1 NOT THERE 
TType=-| SAYS USE Ve. Ags JOYSTICK CAL 
y er Sat ARI1 IS THERE 
RESTORE LOC 4 fo Hs TO & 


;EX 
i SemRY SET SAYS THAT AR11 IS NOT ADRS ASSIGNED 

































0 STOP NC11 out SAVE STATUS 













SET TO SERO "core MATRIX AREA 


ALL DONE? 
MORE 
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937 
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012700 


ppoeae 
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001250 
001099 
173406 


001009 
002035 


173340 
000409 


173332 
174909 


~ 173314 
07 


173262 
001246 


O01e46 
016000 


000100 


001250 


173412 


173376 
173362 


173360 
173346 


173326 


173250 
173240 


MACYL1 27(732) 


21-SEP-76 15:32 PAGE 31 


CLR TEMP tye uP a: ERASE WAIT LOOPS 
MOV #2, TEMP] : 
1$: DEC TEMP! :C 
BNE 1$ Fite 9 
DEC TENPL : SOND” LOOP DONE? 
BNE } :BR IF NOT 
8R 43 SALL DONE - RETURN 
2s: BIS #1000, 2VTVCSR :ERASE DISPLAY (CLR BIT MAP) 
33: TSTB aVvTVCcSR *LOOK FOR READY 
BPL :WAIT FOR IT 
BIC #1000,aVTVCSR TURN OFF ERASE DISPL 
MOV #2035, aVTVCRG :CLR CHAR BUFFER & DYSABLE CURSOR 
4S: RTS PC SEXIT 
eee ROUTINE WILL LOO BIT MP (SVL) 
ROUTINE i LOAD BIT MAP (VSVO1) 
RO CONTAnES BIT MAP ADRS AND Rl THF BIT MAP DATA 
jiteeehiesentaesseenenineeeets SLSLRESEASALRAKELALERARASELEE 
bispy: Bic ve ;STOP DISPLAY 
BOY He “LOAD BIT MAP ADRS 
OCONT: BIC se QVTVCSR . ; AGAIN IF ENTERING HERE 
1$: TSTB TVCSR v2 
BPL s WAIT T HEN 
MOV Rl, aVTVPX aD BIT 
BIS #400, QVTVCSR = RESUME DICELAY 
RTS : RETURN 
seeeee ROUTINE MILL DISPLAY A POINT (VTOL)SSS 
TINE WILL DISPLAY A POINT (VTO1) 
pennnn COLES WILL DISPLAY A POINT (VTOL) a eannnneeees 
dispy1: TST avT cS sDISPLAY READY? 
BPL DISPY ‘WAIT FOR IT 
BIC #74000, RO RID GAR 
BIC #174000'R1 RID GAR 
MOV RO, aVT :SET UP X DAC 
MOV RI’ aVTYDAC :SET UP Y DAC 
RTS PC ‘EXIT 


j HOE OEE EE 


UTINE WILL DISPLAY X & Y CROSS HAIRS ON VSVO01 
gg ttt snes 


dispy2: TST JVTVCRG EAD 
BPL DISPYe :WAIT IF 
COMB «TEMPO :X NEEDS nT SE INVERTED 
MOV TEMPO,2VTVCHP :LOAD X 8 Y CROSS HAIRS 
BIS sieo0d, aVTVCRG sENABLE THE CROSS HAIRS 


segeom Or nga ge a are emma 
sROUTINE WIIL FILL CORE WITH AN IMAGE THAT, 
NTA THE INTENSITY LEV VELS - 
: TT EN WILL RPPEAR BRIGHTEST - 
:NOTE THAT THIS IS ONLY A DISPLAY TEST PATTERN FOR 
“POSSIBLE DISPLAY ADJUSTMENTS BY THE USER 
I at Bs tet th RU eet 
(AIMNGE: MOV #100, RO sCOUNT 64 ROWS 
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OZN 
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ete 


0 0 b= 0 b= bb bs a po pn pe po hs 
WIUTUTUNTUTUT Un Un Unni una 
0 bb b= b= bo b 2 be he 
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777 «173214 
006030 013777 001350 
006036 777 ~©000001 
O06044 105777 173172 
O0&05G 100375 
G060Se O17703 173166 
O060S6 162703 000500 
006062 O32703 177400 
006066 100402 
CO6070 001003 
00607e 000404 
006074 005003 
006076 o0040e 
006100 012703 000377 
006104 000207 


173102 
173074 


173020 
C30200 
000003 


001712 
0061Se 000002 


006154 
005162 


012737 
004737 


000015 
006174 


001340 


Bogi88 
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173204 
173176 


001310 


auaR: TST JVTVCRG READY? 
BPL DCHAR WAIT FOR IT 
MOVB RS, aVTVCRG ‘LOAD’ CHAR 
RTS PC tEXIT 






+218 ops ISOTOPE 


ol Nut REPRESENT 1EhBsYwrenstry LeveL 100-0) 


‘boNe ROW? 
;BR IF _NOT 
DON ROWS? 


TABLEX, R1 


ey 880. 


1$: MOV R3,(R1)+ 








SO 
SLOWER NEXT CELL VALUE 
RESET ROW LENGTH COUNTER 
BR sLOAD THIS ROW IMAGE 
es: RTS PC ;RETURN FOR DISPLAY 
Les Sahak heh hahah babalal Stal tab Sabehet-b-5-4-5 fetal Sted det-tetelatal-tetakd-t--ioh-Set-delalabadalel 
WILL DOA pag oe # IN ’ARCHAN’ 


; ROUTINE 
IT WITH CONVERSIO 
reeeeasinrestanensenventensenneasanseapeseeresaneaeenseaseasess 


ARCONV: JARBUF sCLR DONE FLAG 
ARCHAN, JARCSR 10 CHAN : UNIPOLAR BITS 














BIS #1. JARCSR T 

18: TSTB © ARCSR :LOOK FOR DONE 
BPL 1$ :WAIT FOR IT 
MOV JARBUF , R3 sGET VALUE 
SUB #500, ‘OFFSET VALUE 
BIT #177400,R3 :SEE IF OUT OF RANGE 
BMI 2g *BR IF TOO SMALL 
BNE 3$ ‘BR IF TO LARGE 

- BR 4§ :NORMAL EXI 

23 CLR R3 sLIMIT TO 0 
BR u§ GO EX 

3 MOV #377,R3 LIMIT 10 377 

3 RTS PC EXIT 





pram 3 TONE YOO 7 eee 
ROUTINE WILL DISPLAY A CHARACTER (VSVO01) 
a SAL OR 7 








EPP T TTT TTT TTT TTT TTT TTTT TTT TTT TT TTT TT TT TTT TTTTeTT Tere TTT TTT’ 


KEYBOARD INTERRUPT SERVICE ROUTINE 
= SEERERERE RE SRE ESSE LEE RE KR RL ERE RE TESST RR EE EERE TPE RSLS LESSEE 








KBINT: MOV o$TKB KBUFF ;READ KEY BOARD 
BIC 0, KBUFF :RID PARITY 
CMP ty ORBUEF 5 CNTR Cr? 
1 :BR IF NOT 
- INP LISEN *ABORT WHATEVER 8 LOOK FOR NEXT COMMAND 






= SREREAKESFLAREKSS RAHA REALE SAAAAAARASAASR KARA SHRARARAAAARAALARE 
: ROUTINE TYPES ’CR’ AND ‘LF’ OR CHAR IN TTYOUT 
hb taliahahoh-triahalalahabedbahak-h-hyh-tet-Salahadadahalahaladaiaiahalaiah-+-+-Sabrt-teh-}-4-tab-lald-t-4-lolalalalalabel 
CR: Nov ‘i's ie: , TTYOUT :SET UP FOR A ’CR’ 
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1546 O06166 012737 O00012 001310 MOV #12, TTYOUT ;SET_UP FOR LF 
154 ra 108777 172750 TYPO: TSTB_aStPS ;WAIT FOR LOST CHARACTER 
100375 x PL TYPO 

013777 001310 172742 MOV TTYOUT,@STPB =; SEND IT OUT 

000207 RTS PC 


006202 
906210 
4 © KLRAEAE LEAL AREER RA LARA LAS LARASSERLRLHE RA ARA ELA AKL LALLA AERA LAKE 
GET IS A SUBROUTINE TO GET AN X,Y COORDINATE FROM THE 
:CODED LEVEL MATRIX, DISPLAY IT XIT 
PETTEETTETTT ELE T TTT SETETETTTETTTTSTETTTT TTT TT TTT TETE TTT TTT TTT ee. 
T: sMOVE A BYTE OF X AND Y 
*MASK ALL BUT x 
"ABS VALUE IS 4 
“ADD TO CORNER V ALUE 
:HOY SAME BY TE, AAD POKE POINTER 


K 
: YABS - Las IS 3 
$0 DO Y 
RI ;ADD TO COR RNER VALUE 
ie PC, DISPY1 :GO_DISPLAY _e 
RTS PC RETURN TO MAIN 


Ce ge rap Ee aoe paeemiemmammanes 
TINE IS CALLED WITH THE ADDRESS OF A 
; LOWING THE CALL. THE MESSAGE 
; TABLE CONTAINS A LIST OF POINTERS TO PHRASES. 
;EACH PHRASE IS sg a TED WITH A 200 BYTE. THE TABLE 
iI TERMINATED WITH A QO. 
5 ERR REAR RARER EEE REE EE REE EERE ERED EERE 


ooccog a MOV 3(SP),RS ;GET ADDRESS OF MESSAGE IN RS 
000052 ADD 8 #2, (SP) ADJUST 
YTPL: (RS) :LOOK FOR ZERO AS TERMINATOR 
BEQ VTWDON :BR IF MSG DONE 
MOV (RS5)+ RY ‘ADDRESS OF PHRASE TO R 
VTWL: MOVB (RY 44R *THIS IS LETTER TO BE BISPLAYED 
- BMI THe 200 1S THE TERM INATOR 
001254 iT Dts DISPL 


DVTO IF viol 
006106 :G0 DISPLAY CHAR VSVO1 
R VTWL G0 LOOK AT NEXT CHAR 
000015 DVTOL: 


sCR? 
;8R IF NOT 


000000 001326 RESET MARGIN 
BR VTWL 360 GET NEXT CHAR 
000012 1$: ;LF? 


BNE VTEXCP :B8R IF NOT 
000060 001330 GO TO NEXT tine 

BR VT GO GET HAR 
001304 VTEXCP: MOVB R3,KBDBUF THERE ARE A FEW CHARACTERS 
000034 OOS460 HOV a, TEMCHR :THAT REQUIRE CONVERSION 
006462 JSR PC, f C, BRAN “BEFORE DISPLAY. 


sCHARCTER IS < 
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1690 006422 ss 
1601 006364 OOB416 cH? it 

185 Speuds i) 

1604 272 000420 BR VTNOSP ‘CHARACTER IS OK AS IS 

1605 006374 O74 075 O72 VTEXCT: .BYTE 74,75,72,76,77,0 

1608 006377 076 077 000 xe 

1608 OO06402 062737 000004 O06460 CH77: ADD #4, TEMCHR s CONVERT OCTAL TO 42 

1699 906410 Oe? 37 0007 OO&480 CH76: ADD #7, TEMCHR :CONVERT TO 4 

1810 OO6416 6460 CH72: INC TEMCHR 3 CONV a TO 3 

1611 006422 962737 OO00002 O06460 CH75: ADD #e, TEMCHR T TO 36 

1612 006430 013703 OD646 CH74: MOV TEMCHR.R3 3 NOW CONTAINS PROPER VALUE 
1613 006434 042703 177700 VTNOSP: BIC #177700,R3 ; CLEAR GARBAGE 

1614 906440 006303 ASL R3 ‘MULTIPLY 6 BIT OCTAL BY 

1615 OO6442 006303 ASL R3 :TO FIND RELATIVE POSITION IN TABLE 
1616 OOS444 062703 012652 ADD STABLE-4 R3 ‘THIS IS ABSOLUTE POSITION 

1617 906450 004737 906532 ISR xo :DRAW CHARACTE 

1618 006454 000703 BR vine “AND CONSIDER NEXT 

1619 006456 0909207 VTWOON: RTS PC 

1620 006460 900000 TEMCHR: 0 ;SPECIAL CHARS ARE BUILT HERE 
1622 HHTS ROUTINE COMPARES. THE CHOARAC TOR ht re EEE 
1623 '+HIS ROUTINE COMPARES THE CHARACTER IN KBDBUF (BYTE) 

1624 ?AGAINST A LIST POINTED TO BY CONTENTS+1 OF CALL+2. 

1625 : MATC FOUND, CONTROL 18 TRANSFERED TO ADDRESS 

1626 ; CONTAINED IN CALL +2+2N N IS gt, NUMBER OF 

1627 ;THE ENTRY IN THE MATCH TABLE THAT MATCHED. 

1628 >IF NO MATCH IS FOUND, CONTOL IS TRANSFERED TO THE LOCATION FOLLOWING 
1€29 s THE LAST TRANSFER ADDRESS. 

1630 3A ZERO als THE MATCH TABLE TERMINATOR. 

ig3l :T C BITS ARE CLEARED ON EXIT 

1632 Prnerencirerererttiecarsert tetera entree 
1633 OOb462 017637 O00000 006530 BRAN: MOV a(SP).MACHER ;GET ADDRESS OF MATCH LIST 

1634 006470 062716 000002 BRAN: : ADD #2, (SP) ADJUST RETURN POINTER 

1635 008474 005237 006530 INC MACHER “MOVE MATCH POINTER 

1636 006500 105777 9000024 TSTB aMACHER A ZERO INDICATES END OF LIST 
1637 006504 001406 BEQ NOMACH 

1638 0065068 123777 001304 oD0014 CMPB_KBDBUF , JMACHER 

1639 006514 001365 BNE BRANL :NO MATCH. TRY AGAIN 

1640 006516 017616 ooDo00 MOV a(SP), (SP) : PUT TRANSFER ADDRESS ON STACK 
1641 006522 900241 NOMACH: CLC SCLEAR C Y BIT 

1642 006524 000250 ¢ N 





LN 
1643 006526 000207 — RTS PC RETURN APPROPRIATELY 
1644 906530 000000 MACHER: 0 















1645 

1646 5 RHEE ERE REAR EEE ERIE ERR EERE REE REE EERE RRR EEE ARE EE 
1647 :fHIs SUBROUTINE IS USED TO DISPLAY A MATRIX OF POINTS 

1648 ; THE ROUTINE IS GENERALIZED AND one HAVE VARIOUS 

1649 CONSTANTS SETUP BY THE CALLING PROGRAMS. 

1650 ;R3 POINTS TO THE MATRIX CODE WORDS 

1651 5p RRR R HEHE RARE EH CHEE ERE EERE RARE ERE ER ARERR HERE RARE REE EKAEES 






1654. 006532 013737 OO6660 O06662 TIXDIS: MOV thay SHF TCT ;SET SHIFT COUNT FOR DECODER 
1655 006540 013737 O06664 OD6666 MOV ROWK, ROW :SETUP THE NUMBER OF ROWS 
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013737 006670 006672 MOV COLK,COL 


13300 001326 


xX . 
013701 001330 ASY,R1 ; W CON AING THE Y COORDINATE 
R oF. T 


0060 : 
Tos0ge BCC TIXBNO TF CARRY awh oa NO POINT TO DISPLAY 
004737 005676 JSR PC,DISPY1 360 DISPLA 
006662 : DEC SHFTCT’ ; COUNT ThE BI 1S. IN WORD 
BNE TIXWOK ; CODE Wee 4 NON ZERO RESULT 


;GET NEW C : 
001332 : ;REFERENCE NEXT POINT 
006566 DEC ROW ;DONT_GO PAST END OF ROW 
BNE TIXL ;NON ZERO OK 
Q05664 006666 MOV ROWK, ROW :R 
001332 ADD INCXY,RI ;MOV Y UP A ROW 
006672 DEC COL ;WHEN COL=0 WE ARE DONE 
BEQ TIXDON 
001326 HOV BASX, RO ;RESET X TO LEFT HAND EDGE 


B 
001332 TIXDON: ADD INCXY,RO ;MAKE A SPACE BETWEEN LETTERS 
001326 HOV RO, , BASX *AND RESET BASX TO NEW VALUE 


Se cc ae 
THIS ROUTINE CALLS ’ASCIZP WHICH CONVERTS A SINGLE OR DOUBLE 
PRECISION OCTAL NUMBER TO ASCII DECIMAL AND THEN WRITES IT TO SCREEN 

5 EEKRE REAR REHEEEE KEELE AAR REE EEE EEE LAER AREA EEE ER EA ER AR ERE EERE 


AWRIT: CLR DUMMYe 
OTTY: JSR PC,ASCZSP 
DUMMY 1 


ADUMMY 
JSR PC, VTWRIT 
BLANK 
RTS PC 


KLE RELL LER RE RK LE ERE REE RHEE EERE ERE EERE ELE PRES EES CHEESE SEER EE 
itHIs ROUTINE CONVERTS A DOUBLE PRECISION OCTAL NUMBER IN CORE 
-TO AN ASCII DECIMAL NUMBER. 

‘THE CALL IS JSR PC,ASCIZ 

‘WITH THE ADDRESS OF THE LOW ORDER OCTAL WORD IN 


;CALL+2 

; AND it, GOORESS OF THE PLACE THE ASCII DECIMAL IS TO BE STORED 
; By 3 HYGH ORDER OCTAL WORD MUST BE IN THE LOCATION FOLLOWING 
THE SUBROUTINE SHOULD BE CALLED BY 


JSR PC, ASCZSP 
:T0 SUPPRESS LEADING ZEROES AND TO LEFT JUSTIFY THE 
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sANSWER. UNLESS THIS vice. CALL IS MADE THE OUTPUT 


WILL ALWAYS BE 11 BYT 
To eam Sern ckmcr tet eae nlanccrmeeenemnime Seas, 


: 0 
DUMMY; 0 
;ZERO_ SUPPRESS FLAG 


ZESUP: Q 

ASCZSP: INC Z :SET FLAG 

ASCIZ: MOV a GET LOW ORDER ADDRESS 
ADD POINTER 


;GET HIGH ORDER 
;10 POSSIBLE DIGITS 
;ADDRESS OF DIGITS 


D 
eit T 
:SAVE RS DURING DIVISION 
: DE BY 10 


O0r--O00 
0 0 


Rog 


030060 ASCIT 
PUT 1t! IN THE ASCII STRING 


;PUT ANSWER IN DIVIDEND SLOT 
007070 
006730 
006730 CLR ZESUP iH IT THE SWITCH 
000060 SKZE: ;LOOK FOR ZEROES 
eae SKZE AND PASS BY THEM 


; BACK 
BPL MOVALL sAT LEAST ONE ZERO 
INC RS ;POINT TO FIRST NUMBER 
MOVALL: MOV @(SP),RO ADDRESS OF a 
novel D # ADJUST RETUR 


;200 BYTE IS TERMINATOR 


DIVCNT: 0 
ASCRES: .=. 
ADUMIMY : 


H ite ROUTINE DIVIDES A POSITIVE DOUBLE PRECICION WUMBER 

THIS ROUTINE DIVIDES A erie: DOUBLE PRECISION N ‘rt 

;FOUND IN A. # a) ~~ onde (LO) BY he aa i “ NUMER 

:R4. THE A RS fhe D_IN RO (HI) AND R1 (LO) 

; THE ROUTINE C LEF ust + DIVISOR KEEPING TRACK OF SHIFTS 

SO THAT FIRST BIT IS an N BIT 14 OF _RY. THE SHIFT COUNT 1s THEN 

ADDED TO 16. AND THE DIVISION IS STARTED BY COMPARING THE 

*DIVISOR (SHIFTED) TO THE HI ORDER OF THE BMY aA 

:IF COMPARISON SHOWS DIVISOR yh raat A SUBTRACTION IS DONE 

cine Pes SOR AND HI ORDER IVOEN Oe Ma 3 ANSWER IS INCREMENTED. 
REGUA ot S ye etic: ag RE 7 BOTH THE ANSWER AND 


‘THIS SEQUENCE IS PERFORMED THE NUMBER OF TIMES INDICATED BY 
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1768 ; SHIFTCOUNT. 
1769 :RER3 / R4=RORI 
ioe Avis erg ner eeeenennsnencencnnensnsensaqueseneednanensenceneen 
N07 
tee 007 182 Bbs008 CLR R Re 
1773 CLR Ri ;ZERO THE ANSWER 
1774 071 nose08 DIvJuS: INC RS ‘THIS IS THE SHIFT COUNT 
1775 0071 04 ASL RY :DIVSOR X 2 
1778 097132 100375 BPL DIVJuS GO UNTIL BIT 15 SETS 
1777 007134 906004 ROR RY :M BACK 0 
1778 007136 010537 007206 MOV RS, RMJUST :SAVE SIFT COUNT FOR RENAN. JUST 
1779 007142 962705 000020 ADD #16.,R5 ; SIMULATE 16 BIT SHIFT 
1780 007146 006301 DIVLOO: ASL RI sANSWER X 2 
1781 007150 006100 ROL RO 
1782 00715e dO20204 CMP Re oy ;COMPARE DIVISOR AND DIVIDEND 
1783 007154 100402 BMI NOSUB :IF DIVSOR LARGER NO SUBTRCTION 
1784 007156 160402 SUB R4,Re 
1785 007160 005201 INC R1 ;NOTE SUBTRACTION IN ANSWER 
1786 007162 006303 NOSUB: ASL R3 ;MAKE DIVIDEND LARGER 
1787 007164 006102 ROL R2 ‘BY 2 
1788 007166 005305 DEC RS :D0 ALL THIS SHIFCNT TIMES 
1789 007176 001366 BNE DIVLOO 
1790 007172 000241 cle 
1781 097174 o06dce RLJL: m2 ;NOW RIGHT JUSTIFY THE REMAINDER 
1792 007176 005337 007206 Bee RMJUST 
1793 007202 001374 BNE RLJL 
4 RTS PC 
173 007206 o9ocdoc RMJUST: 0 




















1797 3 © SHEKEL HELL AA LAKE E LAA LHS ELLA RAE KS LESH ASAE SHAKER SKE SEEKS EEE 
1798 : THIS ROUTINE AVERAGES THE LAST 32. X-Y JOYSTICK VALUES 

1733 ee ee a tee ea 
1800 007210 o10046 iVAVE: MOV RO,-(SP) SBE, 

1801 O072le 013700 oo124%6 MOV TEMPO, RO GET X BY 

1802 007216 013702 007436 MOV XYBUFP Re GET CURRENT BUFFER POINTER 

1803 007222 010022 MOV RO, (Re3+ “SAVE NEW X-Y VALUE 

1804 007224 O20227 007426 CMP Re, #XYBUFE ‘END OF BUFFER? 

1805 007230 103402 BLO 1s’ :NO 

1806 007232 Ol2702 007336 MOV #XYBUE R2 *YES, GO BACK TC BEGINING OF BUFFER 
1807 007236 010237 007436 18: MOV XYBUFP s SAVE NEW BUFFER POINTER 

1808 007242 012702 007336 MOV BXYOUES R2 -CALC AVE x 

1809 007246 004737 007300 JSR PC, 108, 

1810 007252 110046 MOVB SP) ;SAVE IT 

1811 007254 012702 007337 MOV BXYBUP Re CALC AVE Y 

1812 907260 004737 007300 JSR PC, 10$ :GO DO IT 

1813 007264 000300 SWAB 8=sRO. :GET X-Y_IN RO 

1814 007266 152600 BISB  (SP)+,R0 *GET SAVED X 

1815 007270 010037 o01246 MOV RO, TEMPO ‘PUT IN TEMPO 

1816 007274 012600 MOV {SP)+, RO RESTORE RO 

1817 007276 000207 RTS ‘EXIT WITH AVE X-Y IN TEMPO 

1819 007300 ooso00 10$: CLR RO ZERO SUM 

1820 007302 o05005 11$: CLR RS :DO0 A MOVB TO A REG (UNSIGNED) 
1821 007304 152205 BISB (R2)+,R5 





00730& 060500 ADD RS,RO' ;ADD _IT_IN 
0 Re’ ;SKIP OTHER VALUE 
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007436 


020227 007436 
771 


007336 


CMP R2, #XYBUFE END OF BUFFER? 
BLO 118 :N 

ASL RO ‘DIVIDE BY 32. 
ASL RO 

ASL RO 

SWAB =sRO 

BIC #177400, RO CLR HI SYTE 
RTS PC 


XYBUF : 


QOVOGBOGOOHOO OOO OHO KOKO OOKOOOOOO00000 


XYBUFE=. 
XYBUFP: XYBUF 
KEK KEKE LEK HE KH LH HLH LE LHL SEF RE KLEE REL HEE LEE ER ESL SHEL ETEREEELERRE 
‘aBTTL TTY INPUT ROUTINE 


ae apps sami” snteanai gree apneic npengtamas erence 
NABL L 


5 REKKHR EE EK EEK EKER ARE KEE EERE ERK ER ER ERE EERE EERE EERE RARREEE 
: {SOF THARE SWITCH REGISTER CHANGE 


ROUTINE. 
‘ROUTINE IS ENTERED FROM THE .TRAP HANDLER WILL 
*SERVICE THE TEST FOR CHANGE ee quite REGISTER TRAP CALL 


;*WHEN OPERATING IN TTY FLAG M 













DZNCB.P11 
022737 
171470 
171464 
177600 
000007 


c00025 


010305 
000006 


B 
83 
ui 
it 


062706 


000015 
oooco4 
000002 

° 


OwWvNOOONOWOWOWW 
eh 


Oo 
oO 
uw 
a | 
or 


B01 135 
000100 


010512 
000060 


000067 
000060 
000002 


Cose6_ 000002 


000001 


171326 


000001 
171304 


SGTSWR: 


198: 
7$: 


9S: 


20S: 


10S: 


os 
» Lod 
Ww 
ee es 


16$ 


17S: 
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000176 001140 SCKSWR: CMP 


BSWREG, SWR 
KS 
c$ 
J$TKB, -(SP) 
#10177, (SP) 
7 (SP5+ 
SAUTOB, #1 
15$ 
, SCNTLG 
MSWR 
aiREG. -(SP) 


aSTKB, -(SP) 
#10177, (SP) 


(SP), #25 


#100, a$TKS 


PC STYPEC 
(SP), 


(SP), #67 


#60, (SP)+ 
e($P) 
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ROOM FOR NEW ONE. 
* KEEP COUNT OF CHAR 









3515 THE ro SELECTED? 
5 sRRANCH TENO 


HAR 
33 1F NO, DON’T WAIT AROUND 







STORE Le UNNING IN AUTO-MODE? 
+ BRANCH iF YES 








3 sGLERR COUNTER. 
ii THE NEW SWR 
HAR T 


E? J 
tt IF NOT TRY AGAIN 


;;PICK UP CHAR 
;;MAKE IT 7-BIT ASCII 












i325 He A_CONTROL-U? 
ye NOT 


© CONTROL-U (tU) 
Yes, Ec PREVIOU S INPUT 
tieT? S TRY IT AGAIN 






;IS IT A <CR>? 
BRANCH IF NO 

IS IT THE FIRST CHAR? 
BRANCH IF YES 





33 AND <LF> 
j $RE-ENABLE TTY KBD INTERRUPTS? 
RE-ENABLE TTY KBD INTERRUPTS 
: :RETURN 

s ECHO CHAR 


CHAR < 0? 
t BRANCH Ma YES 
sl 




















j 
| 
| 
| 
| 
} 
| 


Se iadsanieosiid 


Y INPUT ROUTINE 


17777 


CEE 


Gon 


4 


KALLE ELLE S 
-—C.00D- ru 


ipbiinih 


Renee 


oe 


a ad 


ee 


Paap 
“NOU s 
OOoNOINIOO0o00OIMO 
POre se 
OnmMovga 


Pa eT See are aed ee ee ee 
OoooInononmo 


4 


“93-3910 


£9 Cho 
Ooo 


$2 OIG) 
Oo 


Jeu 


—-O.00 


0000000000000 000 Ou 
coco") 


rune wore 


OOoOOoOOVOOIHoUoUNO 
00+ 0 20-2 O20 0-2 8-0 8 
2BBBBREBB 


0-20 + 0-2b-+ b= 0-28 = 0 &- +b + O-+ 2 0+ O80 +b 2 bb 0 8-8 = 0-8 0 2 Od 20-9 O-8o 50 <0 +0 +0 0 +b 6+ 0 = 6-4 3 § 09 -o p< 6 -< 9-0 p< 


rv acy AT ech ery i] 
wn. 0000 0D 
-OwWON 


_- 
001180 


0OCoo4 
000904 
0co04o 


010276 
010305 


000177 


1. wna eo eee 


Se O04 


000140 
000175 
poogcy 


ees | 


ee Seree 2 eee. me free =e 1-934 feee aA 


B15 -2(SP), (SP) $3861 IN NEW CHAR 

BR . ee :GET THE NEXT ONE 
198: TYPE SUES tI TYPE 2 CRY “LED 

BR 208 ::SIMILATE CONTROL-U 
.OS@@L LSB 


yREREREREAEERERESED ERE EEEEEEESEEEEEREESEEEE ESE SESE RS SESE EEE O EE 
:#THIS ROUTINE wh, INPUT & SINGLE CHARACTER FROM THE TTY 


* ROCHR ss INPUT A gine tg FROM THE TTY 
* RETURN HERE 7; CHARACTER IS THE STACK 
* ;;WITH PRAITY af? STRIPPED OFF 


#CALL: 


SROCHR: mov SP), -( SP) ;PUSH DOWN THE PC 


MOY aiSFI 2iSF) : SAVE THe PS ms 
18: 1ST aS Tk :;WAIT FOR 
SPL 1$ A CHARACTER 
MOVE = SSTKB,4(SP) sRERC THE TTY 
Ie erc<!7?> 4 SP) ::GET RID OF JUNK IF ANY 
CMP 4(SP), #2 3:15 IT A CONTROL-S” 
BNE 33 +; BRANCH NO 
2s: TSTS 49s ASTKS ¢sMaTT FOR A CHARACTER 
RPL 2$ :LOOP UNTIL ITS THERE 
MOVB  a3$TKB,-(SP) GET CHARACTER 
31 atClr?, (SP) >:MAKE IT 7-BIT ASCI 
CMP (SP)+, b21 21S IT A CONTROL-Q? 
SNE 23 ::;IF NOT DISCARD IT 
a 18 :: YES 
38: CMP 4(SP), #140 ::1S fT UPEER CASE? 
BLT 4§ : BRANCH 
CMP 4(SP), e175 ::IS ITA SPesTAL CHAR? 
BGT 4 : IBRANCH IF _YES 
BIC #40, 4(SP) ::;MAKE IT UPPER CASE 
48: RTI ::G0 BACK TO USER 


jieannneedenenenantesecacanasehioensseeadtniitensnseneetenteees 
pRTHIS | ROUTINE WILL INPUT A STRING FROM THE T 


;* ROLIN $3 INAUT A STRING FROM THE T 


2% RETURN HERE :ADDRESS OF FIRST SU ORRE TER “writ BE ON THE STACK 
* t TERMINATOR WILL BE A BYTE OF ALL O'S 
SRDLIN: MOV R3,-(SP) ;SAVE R3 
CLR -(§P) : CLEAR THE RUBOUT KEY 
13: MOV a$TTYIN,R3 DORESS 
23: CMP sSTTYIN+7,R3 BUFFER FULL? 
BLOS =s4NS FY 
RDOCHR . ::G0 READ ONE CHARACTER FROM THE TTY 
MOVE  (SP)4,(R3) - GET ¢ TER 
108: CMP8 #177, [R3) tits IT RUBSUT 
BNE S$ ::BR IFN 
TST (SP) 31S THIS THE FIRST RUBOUT? 
BNE 3:88 IF 
MOVB = -&"\., 98 *: TYPE A MBack SLASH 
TYPE 3 





me es a 8 ee a eee. 







1992 010110 
1833 D1Gi18 
tgac Bini dS 
tage i554 
1998 Bibtaa 
1998S 910136 
656 10149 
2001 910i¥e 
2502 10150 
003 010154 
2004 Q10156 
2005 idise 
e006 OlO1s4 
2007 010170 
2008 9i017e 
2003 010176 
2010 010200 
eCil 9i02de 
012 010506 
2e0i3 O1ele 
2014 010214 
S015 10220 
2018 Ol9e2e2 
3017 Oidee6 
518 010232 
2013 O1923€ 
2e0ed 010240 
ec2i 010244 
ele2z 010259 
2023 010252 
20e4 910254 
2025 01025 
2025 010264 
2027 019572 
2028 610274 
2023 010275 
O30 010276 
2031 910205 
2032 O193le 
2033 010317 
2024 910324 
2035 010330 
2026 910336 
2037 
2038 
2033 
2045 
i 2041 
2542 
2O43 
2044 
204s 
2OSE 


hah "\ etme”. 
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01a? 16 


177 Vie 


010276 - 


010274 
010274 


000134 
010274 


0092s 
019308 
0000¢e 


010274 


909092 


p00004 


000812 

00 
051127 
020127 


&$: 


S$: 


3$: 


4$: 
3s: 


38: 


TTYIN: .BL 
CNTLU: . 
SCNTLG: . 


SMSWR: 
SMNEW: 
EVEN 


+ RELELEFSFLERLERLE SL ARAALEAALEATARAERRTLALEFARFTARFAALAERLARLARLARE 


-ASCIZ 
-ASCIZ 





#-1, (SP) 
Gee OTT en 
4 

(R3) 9S 

3 


2g 
(SP) 


7$ 
a*\,9$ 
38 

(SP) 
#25, (R32) 
SCNTLU 


4SP) 2°SP) 
tsirytn: 4(SP) 


NOOO 


44U/<15>< 12> 
7#G/¢15><12> 


(15><12>/SWR = 


/ NEW = 


‘ABTTL TYPE ROUTINE 


SROUTINE TO TYPE AGCI? MESCAGE MESSAGE MUST TERMINATE WITH AO. 


ROUT INE TO TYPE ASCIZ NES MESSAGE MUST ret WITH A O BYTE. 

; #THE RCITINE WILL INSERT A NUMBER OF NULL CHARACTERS gis A LINE FEED. 

;#NCTE:: $NULL_ CONTAINS THE CHARACTER TO SE USED AS THE FILLER CHARACTER. 
; #NOTE2: SILCS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 


#NOTES: 
* # 
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$FILLC CONTAINS THE CHARACTER TO FILL AFTER 






+3587 THE RUSOUT KEY 

; ;BACKUP BY ONE 

+3 TACK oper” 

SETUP TO TYPEOUT THE DELETED CHAR. 


£360 REA ewes CHAR. 
+ RUBOUT KEY SET? 


F NO 
tS TYPE A BACK SLASH 


at THE RUSOUT KEY 
31S CHARACTER A CTRL U? 


i Ped = CONTROL “— 
33S0 STAR 


TRING 
Ha THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 


gs CHEEK FOR RETURN 
P_ IF NOT RETURN 


Ha: ALINE FEED 
73 CLEA N RUBOUT KEY FROM THE STACK 


R3 
:AOJUST THE STACK AND PUT ADDRESS OF THE 
ss FIRST ASCII CHARACTER ON IT 
; RETURN 
+3 STORAGE FOR ASCII CHAR. TO TYPE 
INATOR 
RESERVE f BYTES FOR TTY INPUT 


3300 


_FSCONTROL % « 















DINCB. P11 


[=] 
LPT) 
<= 
fw 


01 
OS? QLO34E 
2058 910350 
2053 010352 
2060 Q10354 
2061 010356 
e0s2 010362 
2063 O10364 
2084 010366 
2065 910370 
2086 010372 
2067 910376 
e068 010400 
2063 01040% 
2070 010406 
2071 oO1l04%ie 
2072 0194:4 
2073 diD416 
2074 010420 
2075 010422 
2076 010426 
2077 010430 
2078 10434 
2079 910440 
2080 Oi0%4e 
2081 
e082 O1044E 
2083 010452 
2084 C10454 
2085 O10460 
2086 CiO464 
2087 
2088 
208s 
2090 OLO4EE 
2031 010472 
* 2092 910476 
2033 010504 
209% QO10506 
2oss test 
2096 01051 
2037 O10SIEé 
2098 0:0520 
2093 010526 
2190 010534 
e101 010536 
2i92 010542 
2193 010544 


lee7te 


UTINE 


o011s° 


000002 


oog002 
000011 
oo0200 


C10556 


010Sle 
00115e 


001154 
ccocd: 


010512 
010555 


000040 
010S1e 
000007 


170432 


000002 
000015 


010556 
000012 


010556 


170424 
000002 


oo000e 


;*OR 


£0$: 


;HORIZONTAL TAB 


8$: 
9S: 


$TYPEC: 


1$: 


TYPE 


MESADR 


MOVB 
J 
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72CALL: . 
;*1) USING A TRAF INSTRUCTION 
;* TYPE =, MESAOR 


STPFLG 
1$ 


RO, -(SP) 
aetSP),RO 
(RO}+,-(SP) 
4S 

(SP)+ 
(5P)+.R0 
#2, (SP) 
HT, (SP) 
CRLF, (SP) 
(SP)+ 


SCHARCNT 
e$ 


PC, $TYPEC 
SFILLC, (SP)+ 


3 
SNULL,-{SP). - 


1(SP) 
PC STYPEC 
SCHARCNT 

7§ 
PROCESSOR 
8’ , (SP) 
Pc, $TYPEC 
#7, SCHARCNT 
% 

(SP)+ 


$TP 


$TYPEC 
2(SP). a$TPB 
uch, 2lSP) 
SCHARCNT 
STYPEX 

aLF 2(SP) 





;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 






3315 THERE A TERMINAL’ 
ssHBLT HERE IF NO TERMINAL 


ss 


; ADD 

;;PUSH CHARACTER TO SE TYPED ONTO STACK 
3;8R IF_IT ISN’T THE TERMINATOR 

;;IF TERMINATOR POP IT OFF THE STACK 


;;RES 
!:ADJUST RETURN PC 
::BRANCH IF <HT> 
:;BRANCH IF NOT <CRLF> 


;;POP <CR><LF> EQUIV 
;; TYPE A CR AND LF 


;;CLEAR CHARACTER COUNT 
3;GET NEXT CHARACTER 

3:G0 TYPE THIS CHARACTER 

33 TIME FOR FILLER CHARS.” 
NEXT CHAR. 

s OF Fear tens. NEEDED 


3A NULL , 
;;DO0ES A NULL NEED TO BE TYPED? 
33BR IF_NO--GO POP THE JLL OFF OF STACK 
33GQ TYPE A NULL 
;;D0 NOT COUNT AS A COUNT 

LOOP 


ee 
ge 





; ;REPLACE TA_WITH SPACE 

: BRANCH IF NOT AT 

::POP SPACE OFF STACK 

GET NEXT CHARACTER 

:WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
3313 CHARACTER A CARRIAGE RETURN? 


ss CH NO 
3s YES>=CLEAR CHARACTER COUNT 
::IS CHARACTER A LINE FEED? 





2104 O10SS2 001402 


se Hes Oe 


rorurvrurorururururufororururururururururururururururororurofruruforurufurururururufururrrurururorore fururut 


GUO UU ORONO Ae oe ie oe EE: -E EG) GIG) WIG WIOIGIOINITUNNUFUFOMUTUFUTUr-b2b-—s262626--6-- 50 e 
uw = ’ + 0 = 0b + > ao 
WOnNMUeC ONS Sma FHM SSBSVRAREORE Siow UU coro Owoo ou ‘TuNtur-co bie 
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009000 
000901 


aoddae 
009001 
000006 
000095 


011007 
000006 


000012 






21-SEP-76 15:32 PAGE 43 









BEG STYPEX sBRANCH IF YES 
govagen; RO Ls COUNT THE CAEN eo race 





s SREKRSRASRRLLELAAASLSSA RARER RASELSARAAS LA LALSKRELRFLSELAFLES SLEFSSE 
‘STIL BINARY TO OCTAL (ASCII) AND TYPE 


5 SERRRAARRRER ER ER ERE EEE EEL LEAR RARE EEE AL EL EEE EEE EEE SEER ELLE SEES 
STHIS ROUTING e USED TO CHANGE A 16-BIT BINARY NUMBER TO A &-DIGIT 
OCTAL (ASCII) NUMBER AND TYP 
s #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3#C e 

% MOV NUM, -( SP) ;;NUMBER TO BE TYPED 

3% TYPOS ;;CALL_FOR TYPEOUT . 

Le BYTE N ;;N=1 TO & FOR NUMBER OF DIGITS TO TYPE 
3# .BYTE ssM=] ne : 

;* 1=TYPE LEADING ZEROS 

* =SUPPRESS LEADING ZEROS 


Je 3A! gm HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
: #81 YPOS OR STY: 


+ MOV NUM, -(SP) :;NUMBER TO BE TYPED 

i TYPON *:CALL FOR TYPEOUT 

: #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

: MOV NUM, -(SP) ;;NUMBER TO BE TYPED 

ie TYPOC ?:CALL FOR TYPEOUT 

$TYPOS: MOV a(SP),-(SP) sPICKUP THE MOD! 
MOVE 1(5P)°SOFILL aa D ZERO FILL SWITCH 
MOVB © (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
ADD #2, (SP) *: ADJUST RETURN ADDRESS 
BR $TYPON 

STYPOC: MOVE #1, $0FILL 33861 THE ZERO FILL SLITCH 
MOVE #6; SOMODE+1 :SET FOR SIX(6) DIGITS 

STYPON: MOVB 85, SOCNT 186 THE ITERATION COUNT 
MOV R3;-(SP) :SAVE R3 
MOV RY’ -(SP) 11 SAVE Ru 
MOV RS. -(SP) :SAVE RS 
MOVE SOMODE+1, RY GET THE NUMBER OF DIGITS TO TYPE 
ADD fe, RY ; SUBTRACT IT FOR MAX. ALLOWED 
MOVB —— RY’ SOMODE ::SAVE IT FOR USE 
MOVB  $OFILL.RY ::GET THE ZERO FILL SWITCH 
MOV eae RS ::PICKUP THE INPUT NUMBER 
CLR R3 *:CLEAR THE OUTPUT WORD 

1S: ROL RS ;;ROTATE MSB INTO “ 
BR 33 :GO0 DO MSB 

2s: ROL RS FORM THIS DIGIT 
mf 





3$: ROL R3 ;;GET LSB OF THIS DIGIT 








Qd00000 
S 
z 


tururururururururofrururururururururururofurururufurorurrrufrrmrorrururoroture 
QIOIVWOVDOOKOVOOOVOO0VW0000 
=] 


8: Miptestestrtint tpt Setp ht bebe eps better bey iy heb r by er beh tks rks be meee tees Oe 
fOr DUD SUP UAE torO CoB e0 SOUT ee CoFor 0s GOrUt 2 Conde CoeDeD ee 


YOOdoDOOOOKOOOO000 
ee 0 
0 bb bb b= bb 
[oe | ae | oe | oe 

owe 

oma 


BEESSRROOE 


105337 
0 


0000-00000 
ARhow Loood 


003026 


int t0 11_EXERCISER mete 27(732) 
Y TO OCTAL <ASCII) AND TYPE 


011006 
177770 


011904 


ooc00e o00004 


o00084 900002 


011136 


000060 
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DECS + S$OMODE tore = DIGIT? 


IFN 
T_RID OF JUNK 


7 
Ic #177770,R3 
BNE 4§ tI TEST OR 0 
TST te t SUPPRESS THIS 0? 
BEQ S$ R YE 
4§: INC Rey 
BIS #°0,R3 


EBON’ T SUPPRESS ANYMORE 0’S 
3s MAKE asc IF GIT ASCII 


S$: BIS #’ |R3 SC 
MOVB 3, 8$ : SAVE FOR TYPIN 
TYPE 3¢ 3360 TYPE THIS DIGIT 
7S: DECB «2s SOCNT OUN v4 
8GT 2g TBR IF MORE TO DO 
BLT 6 IF 
INC RY t  TNSURE LAST DIGIT ISN’T A BLANK 
BR 2g ::G0 DO THE LAST DIGIT 
$$: MOV (SP)+,R5 RESTORE RS 
MOV (5P)+;R4 ; RESTORE RY 
MOV (5P)+'R3 ::RESTORE R 
MOV 2(SP)'4(SP) :;SET THE STACK FOR RETURNING 
my (SP)+, (SP) TURN 
QS: .BYTE 0. i] STORAGE FOR ASCII DIGIT 
"BYTE :: TERMINATOR FOR TYPE ROUTINE 
SOCNT: .BYTE 0 *:OCTAL DIGIT COUNTER 
SOFILL: :BYTE 0 $}ZERO FILL SWITCH 
SOMODE: "WORD O MBER OF DIGITS TO TY 


: , SEAEAELAASESESSARUREESRAUEES 425 O0SEDTSEEDUNEDEETORDESEDSORUNESS 
‘ABTTL READ AN OCTAL NUMBER 720M THE TTY 


5 EERE EERE REE ERA E RAE ER EE EEE RE REE ER EERE 
aS es WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


TO BINARY. 
#THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
xOCTAL DIGITS. IF AN ILLEGAL CHARACTER IS a A=?" WILL 


jTHEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 





ie RDOCT ;;READ AN OCTAL NUMBER 
1% RETURN HERE ?:LOW ORDER BITS ARE ON TOP OF THE STACK 
1% ::HIGH ORDER BITS ARE IN $HIOCT 
SROOCT: MOV (SP). -(SP) ; ;PROVIDE SPACE FOR THE - 
MOV 4(SP}, 2°SP) :: INPUT NUMBER 
MOY RO, -(5P) >: FUSH RO ON STACK 
MOV R1;-(5P) t 1 ON STACK 
MOV Re’ -(SP) $;PUSH Re ON STACK 
18: RDLIN ‘READ AN ASCIZ LINE 
HOV (SP)+, RO :$GET BODRESS be 1ST CHARACTER 
CLR a CLEAR DATA WORD 


Re 
2s: MOVB (RO)+,-(SP) ; sPICKUP THIS CHARACTER 
BEQ 3$ ;1F ZERO GET OUT 
CMPB #°0, (SP) _. }}MAKE SURE THIS CHARACTER 

BGT 4$ 3321S AN OCTAL DIGIT 















-~ | 
eel aioe 


ad 
~j 
io 


So eereesssssess9ss20r S989 
FESREVSRPVB TORO 


“Oood0000 

bb ob be hb eh eh 

ae 0 0 
Seema 


1-DZNCS-C __ GAMMA 


010046 
016600 


005740 
111000 
006300 
016000 
000200 


000087 


177770 


000012 
O11146 


001160 


000082 


011172 


1 EXERCISER 
READ AN OCTAL NUMBER FRO 


122716 
3 
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CMPB)s«#"7, (SP) 
BLT 4 
ASL R 
ROL R 
A RI 
ROL Re 
ASL RI 
ROL Re 
BIC atc? (SP) 
ADD SP)4,R 
BR SP 
33: TST (SP)+ 
MOV R1, 12(SP) 
MOV Re: SHIOCT 
MOV (SP)+,Re 
MOV (SP)+'R1 
MOV (SP)+'RO 
RTI 
4$: TST (SP)+ 
CLRB = (RO) 
TYPE 
cs: .WORD O 
TYPE SQUES 
BR is 
SHIOCT: |. WORD 


reviabeineneaneaeeneaneneaneasehtanenneneanenaeneaneneneeneeees 


‘aSTTL TRAP DECODER 


iTNIG ROUTINE WILL PICKUP THE COMER BYTE OF THE “TROP” INGTRUCTI 
:ATHTS ROUTINE WILL PICKUP THE LOWER BYTE OF TH 
To I THROUGH THE TRAP TAB 


AND _USE IT 


NDEX 
SOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


:*GO TO THAT ROUTINE. 


STRAP: 


. 
’ 


éTrPap: 


STYPON 
SGTSWR 


RO,-(SP) 
2(SP),RO 

-(RO)’ 
(RO) ,RO 
RO 
STRPAD(RO) RO 
RO 


.~SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE “TRAP” INSTRUCTION. 


ROUTINE 


;;CALL=GTSWR 


TRAP+0( 104400) 
TRAP+1 (104401) 
TRAP+2( 104402) 
TRAP+3( 104403) 


TRAP+4< 104404) 





;3%2 
334 
33 *8 


;;STRIP THE ASCII JUNK 
ia THIS DIGIT 


L 
;; CLEAN My bl FROM STACK 


;;POP STACK INTO Re 

;;POP STACK INTO R1 

7 3POP -_ INTO RO 

;;CLEAN PARTIAL_FROM STACK 
;SET A TERMINATOR 

: TYPE UP THRU THE BAD CHAR. 

wa ator & “LF 


33 TRY AGAIN 
HIGH ORDER BITS GO HERE 










HE “TRAP” INSTRUCTION 
BLE FOR THE STARTING ADDRESS 






; SAVE RO 
GET TRAP ADDRESS 
SRO OP a 2 

;GET RIGHT BYTE OF TRAP 
: POSITION Ai INDEXING 
;;INDEX TC TABLE 
;;G0 TO ROUTINE 







TTY TYPEQUT ROUTINE 
TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPe OCTAL NUMSER {NO LEADING ZEROS) 

TYPE OCTAL NUMBER (AS PER LAST CALL) 


GET SOFT-SWR SETTING 








MAINDEC-11-DZNCB-C_ GAMMA 11 EXERCISER 
DZNCB.P11 TRAP TABLE 


011369 
000340 


000024 
000026 


Tyryrururururure 
MOR LHS 


o000e4 


ONONONONOO0N000000 


¢ 


ROE 


oc0de4 


Seno eee 


ah 


oo0024 
000026 


o 
G 
0 
0 
0 
0 
0 
0 
1] 
0 
0 
0 
0 
0 
i) 
i) 
0 
0 
] 
4] 
0 
0 


000000 
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$CKSWR ;;CALL=CKSWR TRAP+S(104405) test FOR CHANGE IN aie 
D ;;CALL=RDCHR TRAP+6(104406) TTY TYPEIN CHARACTER ROUTINE 
N ;;CALL=RDLIN TRAP+7(104407) TTY TYPEIN STRING ROUTINE 
$RDOCT ;;CALL=RDOCT — TRAP+10(104410) READ AN OCTAL NUMBER FROM TTY 
7 GHB HEHEHE HEHEHE HHE BEBE HEHE HEHEHE EEE 


"SBTTL POWER DOWN AND UP ROUTINES 


fy RERRRAE AERA ER AAAS RELEASE RARALAL AREER E RE RAE ELE LEAL LAE LER EES ELEELE 
*POWER DOWN ROUTINE 
MOV -SET FOR FAST UP 


SPWRDN: MO ; 
MOV 3 3PRIO:7 


SP, SSAVRE : SAVE 
#SPWRUP, J#PWRVEC’;;SET UP VECTOR 
4 ;;HANG UP 

© KLELRKAASERELELA HALA SARA AAK ALA ELA LARA EKER AKA RAL AE REALL LA RE RERE 


“POWER UP ROUTINE 
$PWRUP: MOV #SILLUP, J#PWRVEC ;;SET FOR FAST DOWN 
MOV SSAVR6, SP ::GET SP 
6 ::WAIT LOOP FOR THE TTY 
>:WAIT FOR THE INC 


HALT 


1$: S$SAVRE 
1$ 
P) 
Pp 


(SP)+:RO es 
#SPWRON, J8PWRVEC’ : 

#340, JHPWRVEC+2 iP 

PWRMSG ::POWER FAIL MESSAGE POINTER 
(PC)+, (SP) RESTART AT START 

START] ::RESTART ADDRESS 


3; THE POWER UP SEQUENCE WAS STARTED 
3; BEFORE THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HERE 


SPWRMG: . 
MOV 
SPWRAD: . 
SILLUP: 
SSAVRE: O 
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SBTTL_ ’TO1 INTENSITY POINTERS & DATA 
;TABLE OF POINTESS TO X AND Y INTENSITY PATTERNS FOR VTOL DISPLAY 


LEVTAB: Ll 
Le 


oO0o000 
— = = 0 6 0 F— 0 6 Bb 0 9 2 0 0 9 0 0 bo po 
Pate 2 


© tT ee Ce ee 
TU 0 bb 0 
OWONOUIC LIMO 


~ 
=o 


0 
Ne) 
0 
0 
0 
0 
0 
0 
0 
0 
i) 
1] 
0 
1] 
0 
] 
0 
0 
0 
C 
s) 
0 
0 
0 
0 
0 
0 


OO ee be be be be be bb be bo bo bb 0 0 0 be ee 
-— 2 po pe 
ONOOOOVOVOWOOVMOVOOVOVOVOOKOVOVOOOOVO0N00 


s THIS IS THE CODED. MATRIX TABLE FOR a DISPLAY 
; THE ENTRIES ARE PACKED 2X, Y COORDINATES TO_A WORD 
THE EVEN BYTE CONTAINS THE FIRST PAIR, 3 airs PER 
; COORDINATE. 

-BYTE 33 

-BYTE 16, 

-BYTE ze 32,64 

BYTE 21, 15,56, 62 

-BYTE 05,20,43,57,71 

-BYTE 24,00,32,47,65,51 


-BYTE 02, 15,20,43,46,61,65 


-BYTE OS, 12,24,37,41,56,70,63 


ODONONOVOOOCOOOOO0000D 
ea nee ee ee oe = 
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DZNCB.P VTO1 INTENSITY POINTERS & DATA 


uw 
GJ 
fu 


-BYTE 00,13, 16,31,35,43,57,61,74 


-BYTE 00,13, 16,31,43,55,57,61, 74,35 


ba beh be 
unui 
ROS 


ho 


-BYTE 12,15,27,33,41,45,62,57,74,00,76 


~BYTE 00,03, 16,21,24,37,42,45,57,61,64, 76 


me a ache 


2e3 


-BYTE 07, 12,15,20, 34, 36, 42,50,54,56,71,73,75 


Reee 
Oulu 


-BYTE 01,05,07,13,20,26,32,34,46,40,52,60,65,73 


-BYTE 03,°¢,27,11,25,30,33,45,47,50,54,52,71,74,66 


Crmrm 


CEPT OORT ROOT HUTA 
Fick ae crea eorary 8 


-BYTE 06, 10,23,25,27,30, 32,44, 46,50,53,64,71,77,02,04 


-BYTE 02,04, 06,10,22,25,27,30,33 
-BYTE 45,47,50,52,65,71,73,77 

-BYTE 02, 14,06, 10,22,25,27,30,33 
BYTE 45,47,50,52,64,66,71,73,77 


-BYTE 02,04,06,10,22,25,27,30,34,41,43,46,50,57 


-BYTE 63,65,71,74,77 
-BYTE 01,03,05,07, 12,30,23,64,25,42,27,34,36,51 


ll 
Q 
0 
5 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
1] 
0 
0 
C 
G 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ee en ee ee ee ee ee ee ee ee eb bb 0 be 0 ee pp ep ee 
— _— ~ ~ 
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DZNCB.P11 
2432 011767 
2433 011772 
e434 011775 
e435 012000 
S37 015005 
2438 012010 
2439 012013 
e440 012016 
441 012021 
e442 012024 
e443 012026 
2444 012031 
e445 012034 
2446 012035 
447 012040 
2448 012043 
2449 012046 
2450 012051 
2451 912053 
e452 012056 
2453 012061 
e454 010063 
e455 012066 
e456 012071 
2457 012074 
e458 012077 
2459 012101 
460 012104 
2461 012107 
e462 Olel1e 
e463 012115 
464 012120 
e465 Olele3 
2466 Oleles 
2467 012130 
2468 012133 
2469 012136 
2470 O12141 
2471 012142 
e472 12145 
2473 012150 
e474 012153 
e475 012156 
2476 012160 
2477 012163 
2478 012166 
2479 012171 
2480 012173 
2481 012176 
e482 012201 
2483 012204 
e484 012207 

48S Olee11 
e486 Oleel4 
2487 012217 


VTO1 INTENSITY POINTERS & DATA 


012 
023 O64 
O42 (27 
036 051 
O83 Ok 
001 003 
? ©6110 
016 © Oe 
O25 O4e 
34 OMS 
051 055 
060 O64 
072 
001 903 
07 . O10 
016 ~~ Oel 
025 ove 
034 O46 
051 053 
057 060 
066 O7e 
000 O0¢ 
oil 13 
Oe 89034 
O31 005 
O42 = 047 
Osi = O54 
060 063 
071 074 
000 603 
Ole 896014 
O21 923 
027 O32 
030 043 
46 050 
055 063 
067 O71 
076 
003 O05 
010 «© Ole 
O16 © Oe 
027 032 
036 O41 
O45 047 
os2 Os 
O65 067 
072 O76 
003 005 
010 © ole 
ei = O23 
030 O32 
3604 
O45 = 047 
054 = O56 
063 067 


030 


Lel: 


Lee: 


L23: 


Le4: 


Les: 


L26: 


-BYTE SS,57,70,53,66,72 
-BYTE 01,03,05,07, 10,49, 16,21,23,25,42,27,34,45 


-BYTE 51,55,57,60,64,66, 72 


-BYTE 01,03,05,07, 10,40, 16,21,23,25,42,27,34,46 


-BYTE 51,53,55,57,60,64,66, 72 


-BYTE 00,02,05, 11,13, 16,22, 34,27,31,25,40, 42,47 


-BYTE 51,54,56,60,63,55,71,74, 76 


-BYTE 00,03,07, 12,14, 16,21,23,25,27, 32,34, 30,43 


-BYTE 46,50,52,55,63,65,67,71, 74,76 


-BYTE 03,05,07,19, 12,14, 16,21,23,27, 32,34, 36,41. 


-BYTE 45,47,50,S52,54,63,65,67,70,72,76 


-BYTE 03,05,07, 10, 12, 16,21,23,25,30, 32,34, 36,41 


-BYTE 45,47,52,54,56,61,63,67,70,72,74,76 
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Ole2ee O72 074 076 
Oleees 001 003 007 Lé?: -BYTE 01,03,07, 12,14, 16,21,23,25,27, 30,32, 34,36 
Aissse Ole 014 ae 
bises ber ie 

lee4l = => O34 0 
012243 041 04S 047 -BYTE 41,45,47,50,52,54,61,63,65,67,70, 74,76 
012246 050 0S2 OS4 







Ole2e60 003 00S 007 Les: -BYTE 03,05,07, 10, 12,14, 16,21,23,27, 30,32, 34,36 







034 
tat 045 047 ~BYTE 43,45,47,50,52,54,56,61,63,65,67,70, 72,76 





314 001 003 00S L239: -BYTE 01,03,05,07,10, 12, 16,14,21,23,27,30, 32,34, 36,43 







12334 Bes 047 0S0 ~BYTE 45,47,50,52,54,56,61,63,67,70,72,74,76 


1 
012351 001 003 00S 130: -BYTE 01,03,05,07, 10, 12,14, 16,21,23,25,27,30,32,36,41 









2371 043 O4S 047 -BYTE 43,45,47,50,54,56,61,63,65,67, 70,72, 74,76 





074 
2407 001 003 005 L3l: -BYTE 01,93,05,07, 10,12, 14, 16,21,23,25,27,30,32,36,41 







e427 043 04S 047 -BYTE 43,45,47,50,52,54,56,61,63,65,67,70, 72,74, 76 


-BYTE 01,03,05,07, 10, 12,14, 16,21,23,25,27,30, 32, 34, 36 
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Daneel v¥o1 SINTENSITY OINTERS & DATA 


1 36 , 
4 12465 Bat 043 04S ~-BYTE 41,43,45,47,50,52,54,56,61,63,65,67,70,72, 74,76 








5 
2556 
ae . o000 
3 Dist O60 
2560 Olesie 012561 
2561 012514 000000 
gobe 012616 012604 
Seca isee2 Dieel> 
2565 Ole5e4 000000 
2565 Oleseb 012636 
2567 012530 O00000 
2568 Olesse 012645 
2569 Ole534 000000 
2570 Ole536 O0S015 
2571 O1e544 O20122 
2572 O1ess2 o44le3 
2573 012560 200 
2574 O1e561 __ O15 
2575 012566 051105 
2576 Ole574 051505 
2577 Olee02 100040 
2578 12604 005015 
2579 Olebl2 047125 
2580 Ole617 O40 
2581 012624 OS4111 
2582 Olebs2 O5211€ 
2583 012636 20040 
12644 20 
2585 O1e645 O40 
2586 Oless2 046515 
2597 


2588 090200 


047514 


OS241e 
052040 
047510 


020132 


10 

047532 
026502 
100101 


O4eS27 
O4e2See 
020104 


050120 
051110 
042114 
047503 

200 


* 051124 


052517 
046517 
040507 


; THIS 1S THE MESSAGE FOR THE BOTTOM OF THE SCOPE 


MESS1: 
MESSe: 
MESS3: 
MESS4: 
MESSS: 
MESSE: 
WDOO1: 


WOO00e : 


WDO03: 
WDOO4 : 


WOOOS : 
WDOO6 : 


MRINDEC-11-DZNCB-C_ GAMMA 11 EXERCISER MACY11 27(732) 
DZNCB.P11 DISPLAY MESSAGES 


SBTTL 


WDOO1 
rea 
_— 
WDOO4 
ee’ 
WDOOE& 


-ASCIT 
-ASCIT 
-ASCIT 


-ASCIT 


-ASCIT 
-ASCIT 


.EVEN 
END=200 





21-SEP-76 15:32 PAGE S2 








DISPLAY MESSAGES 





¢15><12>/LOWER THRESHOLD /<END> 
<15><12>/UPPER THRESHOLD /<END> 


€15><12>7Z COUNT=/<END> 
/ MATRIX COUNT=/<END> 


/ 200M/<END> 
/ B-GAMMA/<END> 





sMSG TERMINATOR FOR DISPLAY CHARS 








RS THAMNAR=A GOMMO 11 EVER TCER mory!! 27/722) 27-cFR-7— 16-22 par S32 


VeNS. fsa Vid CMNABLISN (MOLE 
289 _ S8TTL  vT0l aren Ce TABLE 
2530 s THIS 1S. ie TABLE OF CODED LETTERS AVAILABLE FOR THE 
253] ivTol Stor 
e$3e 4 
esS3 O1z&5& o770s! TASLE: 77061 3A 
2s3H 012669 350 ; 35061 
2535 15662 59511: 45117 :8 
e536 Ol2664 O37118 311s 
es3’ BieS$& o0e0S6 C20Sé , sC 
e592 S12800 23408: 34041 
esss Cleb72 O85117 4517 30 
2800 Ol12e874 237122 37 l22 
£00} 17% 002077 92077 :E 
sere flere Srey! #5547 
2593 Ole7de 04) 02041 7F 
2824 12704 O7é047 T5047 i 
260s Eat O730S& 72056 76 
gee 512710 S309! 35541 | 
eso? OleTl2 28306! 43061 7H 
ete Dleris Bate? 43077 
2505 oOle71lé O1oelsé 10216 3I 
5615 bieret B34504 54205 
361; Oleve2 Seode E044G J 
Beis Sleved P4410 4415 
gi Sisree Dies 12461 sk 
14 «Oi Oses3 So44 

26:5 Ol2732 002077 $2077 sL 
2515 OCl2734 00204: 02041 
2617 ni SoaR 953061 $3061 3M 
2518 Ole 083565 42565 
2619 Jlz74e C&3461 £3461 
e620 OleT44 O831ES 43165 
ebei Oie746 043056 43056 
eee Ole759 035061 35081 
223 Olevs2 036041 32041 
2624 9.5754 03706! 3706] 
Bees Ols7se Oeeuse 52466 
26e6 Ole760 03506: 35061 
3627 Olevse 01246! 12461 
2628 O1e784% 027057 37057 
2629 Cleves 941017 41017 
2630 012778 d7C114 70114 
2631 Qle77e 010204 10204 
e$3e 012774 6204 76204 
2623 O12776 O42056 43056 

| 263% 813000 943061 43061 
2635 0132002 42504 42504 
2636 912004 042061 43061 

| 2637 O13006 952561 53561 
2638 013010 O43065 43065 
2633 O6120le 025061 25061 
2640 913014 042504 42504 
2641 513016 010204 19204 
eb4ze 012020 043052 43052 
2643 Ol3022 004077 04077 
zbe5 O12024 O7&404 754504 





Seale BS, pees 








WWIWOIWOIWWIWIWW GWG WGI IGG WlIWGIWIGIUWG) 
= b= 2 02 bb B= bs Be 2 be be 2 bo 0 00 bs be 0 80 Fo he bo ho he he he 


fore 


1 
2645 013026 
2646 012030 
ate eke 
SIRES 
2s50 01304 
2651 913042 
2652 913044 
253 O130% 
2es54 913050 
2essS 913052 
e656 912954 
28S? 013056 
2658 013069 
2659 013062 
2660 013064 
2661 013066 
esse 913070 
2663 013072 
2664 013074 
2es65 013076 
26 013106 
¢ Ql 
2 Ql 
2669 91 
2679 Ji 
es7i 21 
eb72 Ol 
2673 1 
2674 Ol 
2675 Ol 
e576 O01 
2677 Ol 
e678 Oi 
2é73 Ol 
2580 Ol 
es81 Ol 
2682 Ol 
01 
01 
01 
01 
01 
Oi 
51 
01 
01 
01 
01 
01 
0 
01 
01 
01 
01 
01 
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Q 
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rurururorurury m 
Reels “I 
DIU -£ Latur 


Ins 


MAINDEC-11-D2NCB 
DINCB.P11 


Forurone 
For 


BeeNceeN 


Paige 


reer eerste 
BeeReRoRS 


NQOOVOOOOOVOVOOOOVAMWIOOVWIVVOVOOVOVOVVBIOOOVVKHOVVOOVOVVHOOVOOHU 
SST eRe EE TE Pe ee ee eee ee eee 


051012 


O41S16 
o4e412 


042440 


GAMMA 11 EXERCISER 
VTO1 CHARACTER TASLE 


OS1511 
OS2116 


046120 
051525 


03046! 
052116 


020122 


MACY11 27(732) 


.SBTTL ASCII MESSAGES 3 
PWRMSG: .ASCIZ (15><12)(12>/RESTARTED AFTER POWER FAILURE/ 


MSGI: 


MSGe: 


MSG4: 


MSGS: 
MSG6: 


MSG?: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
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¢15><12><12> “MO-11-DZNCB-C GAMMA 11 EXERCISER/ 


(15><12>/ENTER THRESHOLD VALUE IN-OCTAL - THEN RETURN =/ 


(15>¢12>/BUS TIMEOUT ER - VSVO1 DISPLAY/ 
(15><12>/BUS TIMEOUT ER - VTQ1 DISPLAY’ 


(15><12>/BUS TIMEOUT ER - NCil/ 
(15><12>/ENTER KEYBOARD COMMAND(S)/ 


<15><12>/BUS TIMEOUT ER - ARI1/ 


| MRINDEC-11-D2NCB-C GAMMA 11 EXERCISER MACY11 27(732) 21-SEP-76 15:32 PAGE Sé 
| DZNCB. PLL ASCII MESSAGES 
| BPS? 013620 020055 051101 030461 


ey 


2758 O0i36e6 
e738 00090! END 


& 


| 
| 
| 
| 
| 
| 
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DZNCB.P11 CROSS REFERENCE TASLE -- USER SYMBOLS 
ROUMMY 007105 1689 1694 17528 
ARAD l 













poised 3u4 1318 

ARCHAN 1350 : 6858 le89* lesee 129S* 1508 
ARCONV O06224 - 1290 1293 129% 15078 
ARCSR OO0le4e2 6518 1369 1387 1393% i508 1509% 1516 
ASCIZ 006736 17198 ss 

ASCL 006770 i7ebe = 1735 

ASCRES O0707e 1724 17518 

ASCZSP 006732 1632 17188 

AWRIT 006700 1118 llee2 16918 

BaASX 001326 680% 1l113% 1589* 1658 1673 167&% 
BasY 001338 68le 1114* 1593*% 1659 
BE 001354 SSle 253% 1254 

BIT = 000001 Sols 

BITOO = 000001 491% SCl 

BITOl = 4908 00 

B’TOe = 900004 489% 49g 

£1703 = 000010 4888 405 

BIiTOY = 000020 4878 497 

BITOS = 900040 acon 95 

SiTO6 = 000106 4958 4S 

BITO? = 000200 484s a4 

BITOs = 00 4838 493 

BITOS = 901000 48e8 92 

BITi = 900002 soCe 1405 

BIT1O = 002000 481% 

BIT11 = GO04000 480% 

BITie = 019000 4798 

BIT13 = 020000 478% 

SIT14 = 040000 477% 

BITiS = 100000 4768 

Bite = 4998 

BIT3 = 000010 498% 

BITTY = 4978 

BITS = 090040 49S8 851 

BITE = 100 4958 

BIT7 = 000200 494% 5 : 

BITS = 000400 4938 875 919 

BITS = 001000 492% 

BLANK OG05674 16898 1696 

BOOBOC O02064 730 7933 7% 830% 
BOX 002626 


900 







CH77 006402 1603 
CKSWR = 104405 22738 
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CKVALU 003270 1014 10178 
CLALL = 0001 
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= 000100 
? 
E55 
88 
15 2099 
00 
HA 106 585 
DCONT  O05646 935 942 1173 1180 1454s 
DDISP = 177570 We3e 563712 
Drsac + 004462 1192 1216 = 12418 
DISBG1 004730 1242 12888 
DISDAT 923s 
DISDON 003500 1002 10678 
DISLOP 10118 1065 1091 1103 
DISPLA 01142 Sosa 71e* = 7208 
DISPRE 53l# 720 
DISPY 005634 931 938 949 952 1089 1169---4175 1184 1187 14528 
DISPy1 005676 %2 %& 971 976 1199 1204 1209 1213 1221 1226 
: 1318 «1448145 15ES 1662 ; x 
DIsPy2 1284 14758 = 1476 . 
DIVCNT 9907070 1723% 1734* 17508 
DIVIDE 007120 1728 «17718 
DIvIuS o071e6 1774 
SIvL0O 007146 17808 1789 
DMATRX 003212 10088 
DSWR = 177570 Week 5620711 
OTYPE O01254 pst 92710811027, 104S 0711691265126 13031308 1aSL# 13748 






1 - 
= 000200 2570 2574 2578 2580 252: e585 25888 






ERASE 005536 S42 860 919 1162 14318 - 7 

ERRVEC= 000004 504s 7093 710% 721% 737% 743% «6194S% 8 1954e 13971% 1376% 1392% 139968 
FREERN 001342 686% 782% B44*e 1149 

GAIN 001320 6778 747% 886% 914% 915 1141 i405 

GET 006212 1056 15568 









2275 








CNS = S¥SEEE LL. <y -556 2267 2268: 2269 2271 28273 22% 


JBCXe 04400 6 
JTYPE  OO1346 688% 867* 1195 1241 1394% 
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788% 851% 8Se 1250 1eSee 1S34* 1535# 1536 


cece ee 
DO 2 b-2 b+ b= b+ bbe po Pe bo pe LA | 
WONIMUI.£ WhO 


Ql 
Ql 
Ol 
Ol 
O01 
Ol 
01 
01 
01 
Ht 
1 
Ql 
O11 
Ol 
Qi 
01 
01 
1 
Ol 
Ql 
01 
O01 
Ol 
Ole 
01 
01 
01 
O01 
O01 
0115 
O01 
O11 
6 


1638 1644s 
1094* 1095 1102 


748 = 835 837 1145 L422 1424 
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a4 =*000004 1047% 

1581 

2166% 

1580 

1779% 
2289 

R& 

R7 

SCLCEL 003320 

atk 00S11lé 

Seely 005356 

66 


SP =%000006 


STACK = pot LoD 
TART 


1917% 2303% 


ooo 


0011 
0001 
OG00 
= 0000 
00 
Oe 
000 
00 
0092 
000400 
00 
00 
00 


0002 
2000 
000 


SORES 
Sees 
S888 
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835* 837% 1008 1133 1145 1490 


16208 
1271* 1272% 1273 ee 12e91% 1298%  1299% 


1477% 1478 1801 


1433% 1464 


. 


1526 1528% 
1W41* 1442 1444* 1452% 8 14S4 


VTVINT 
T 
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VTXDAC 
¥TYDAC 
WOOO 


Seg Seer 
Tonge ROBB S EO 


2074 3=62109—s BHI 


ooo 

oor 
bs bb th hh bh pe he 
De eee ee oe oe ee ee oe oe 


75 

000 
4 

11 


2317% 
2037 


2031 2109 2241 


LUMO LOWOLOu 


FULROL 


00 
00 
00 
00 
00 
00 
00 
00 
00 
= 00 
O01 
00 
O01 
00 
00 
00 
00 
00 


2el49* e2160%  2186% 


2014 2031 2109. 2238 2241 
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DZNCB.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 
SROCHR 007722 19518 2274 

SRODECS ##xxeX U 2277 

SROLIN O10042 19798 ©2275 

RDOCT phe ec0es ec76 


SSAVRE= *¥¥#22*% U 2277 
S$SAVRE 011364 2e9l% 2299 2300 2301% 23198 
EM 000114 6948 702 703 705 707 1875 2037 
STUP = 177777 694% 
S$SWR = 160000 404 40S# 572 2316 
$TKB 001146 S6S# 1534 1873 1884 1901 1955 1961 
$TKS 001144 S64# 753% 1873 1882 1898 1922* 1953 1959 


g 

STPB 

STR prtieD 

$TRP = 0000 2eS8# e2b78 e2268% 22698 22708 2271 22728 2273 227448 2275" 22768 22778 
STRPAD 011172 2esS 22658 CP . 

STSTNM 001102 S44e , 

STTYIN 010276 1981 1982 1994 2012 2026 2030% 

$T = ¥XXEKE 2270 


$TYPE 
STYPEC Qi0S1e se3 2077 2084 2091 2096% 2097 


2268 a? 
S$OFTLL 011005 213s6* e2140% 2150 21854 
. = 013627 S26s 530% S41% $75 700 17518 17528 1866 1873 20338 2031 20378 2109 
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wei Wo. ae wees Vel GN ek flee i iPweilw 6h cee 
COM 5ics 
ENDOOM Sigs 
RRO 4108 - 
ESCAPE clés 
SETPRI. 5 1E8 
SETSWR clés 
MULT Sigs 
NEWTST Sige 
Poe Sige 2230 2293 2304 
PUSS Sise  <20% e284 2230 
REPORT Sits 
SCOPE. = lls 
SETPRI Siss . 
SETTRA 8eS8e 2267 22é8 2269 2271 2273 2274 2275 2275 
SETUP S1Es BSH 
SAIP Sits 
52°54 3i$s8 
SFRLE 516s 
STSRS Sits S37 7s 1323 1328 1360 1364 1282 1385 1401 1402 i403 1411 1417 1413 
$28 1830148145146: 18831472 14741482) I48S—sS03) iste «= sis230 153583! 
1533 «1S4])=ISH3)sISEE«=CISSS «=ssdISES) =sIS74) = sle22sldesdSHEG = IES «= 1851588 = 16S = IFS 
17ss 1770 rs 1795 1865 1g7e2 1875 1943 1972 2038 2041 21o9 élite 2137 2130 
Ds 2241 2244 2277 2280 e236 
SWRSU Sits 7078 
TRMTRE 22588 
| ryPsIn “Eles 
TYPDEC Sigs 
TYPNEM Siés 
TYPNUM cise 
TYPOCS Siés 
TYPOCT Slés 1893 
TYPTXT Sigs 
SSCMRE 9-535 
SSCNTN «0 E358 
SSESCA Site 
SSNELIT §«=-«E 1S : 
SSSET 22588 2257 e268 22é$ 227} 2273 2274 227 ee7t 
SSSKIP Sits 
EQURT ash 406 
HEADE = 3348 
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ade 1135 
ROD 734 4 35 1909} 10 10 1302341386 3 i 
1389 1888 + (2 re CS 9 CC 
1746017781822 1809) 1918S 2086S 2138S 2148 = 2225 si 
ASL 74H 86103) 07HSCdL7?,—(i‘éd‘?BCCé«édCS7GDsCiéddOeSSCCék7SC(iédBT'SSC«édL7??=—s«1278 
1312-1313) 1314 = 13151318 = 1863) 1614 = «1615 ss«1775—Sés—s«d780s1786 LEE 
= 1833 1934 = 2218) 2220 eee 22S 
ask 1043 1558 
Bey tose? 78GB 
BCs 750 3B $02 «308 
BES sr_(i7HCtiCHC HC (Ge BCC10S-—s10HG—“‘éiSOCd1O73ss142 SD s«1178 
1302 «13371350148? 187 i637, «1672S ss1738-—Ss—s«d7H:Ss188S—s1S1E 1931 
eig5 2213 
SCT 18281969272 2215 
SHI $2 109) 1018 1020 
SHIS 390 
Bro 731 Sl (iH? 887 3=—s_s«§89 10991280) e724 
4675351557) 156101813) 1830 = :1885 1929 1956 «Ss «1982ss1970—ts 2 
81S $1 14051406 141 1NSB 1479 1936 2167 = 2iée 
SiS sigl4 = (182) 
817 1248 IHG 1814 
Bivs 86-2092 
3L0 1033 1805 «= 18251995 
BOS 1043 1993 
BLT 16296 1957 2083 2173 2217 | . 
BMI 1i08 «1198 )3= ss te4e «= 1815 «1582. 1783 —C 
ENE 7000Cf 734 —'sis736—(‘<i‘iSC (itt COS i HTHCi7Q HSC‘ «102s 
1058 105] 1066 1087 1087 1101 21397 1)46 1164 1190 1202 1207 1284 1289 1251 
1255 1265 1302 13064 1334 i342 1370 1391 1425 1437 19399 1595 i516 1537 1884 
1588 «ISS s1E3S)—sd1EEH = s1GES = 1735)ss1789°=Ss«1783')—=:'s«d1S88]=Ss1S8P S07” 1914) = 182118531964 
1387 1985 00S )=— 2009) 018) 2063) 207] «= 0792093 2100S 263 2302 
BPL 4 1091 tell 215 1233 1237 124? 1264 1432 449 1456 1465 1476 1511 1527 
iS48 «1743s«174BSsi«‘«d7'7HsC‘ié‘«iKSSCC1899 1954 1560 )= 2057209" 21 
zs 716 739 833 $82 905 $13 935 $3 93 1110 [174 1192 1192 1218 1258 
1257 1283)ss1e8S = 1305) 0s s1319ssi3el «= 1388) 1380) 1388) 1440S 1500S? = S39 5861580 
iss 1604 ~=s«d1638 «= 1674 = 1310S s«1937 = 1839 S 1998 2007 2013 2015 2059 2076 2086 
x 20s 2102 2138S 2154 = e175 220i 
| CLC 1938 8610 1353 1375139514 
CLN lé4e2 
cLR 698 747—(i7H9C7BZC7BH 785 
97 982 1023 1030 1063 1092 
1393 «1414s 14283) 1434 = ss«1818 1691 
2003 «2152 «92210 2211 2300 
CLRE E010 2020) 2075) 2101 )§= 2235 
CMP sg 7130738. 740s 789s 792 
1017 1032 1098S 11001145171 
1356 «= 1388S ss«1378 = 1390) «1424S 1536 
1925 «1927 «1957 1963s ise Ss 1968 
cMPE = s1E38)=s«1740)='s«s1g88 = 1920) 1986 = 2004 
cOM 1253 1271 1308 
OME 1477 
DEC on ee * ee ee: ee, Bee 
1203 e08 «S210. «1214 =—s 2eSsi12380 ik 
734 0—«1788 «= «1752S 1993 
2160 92171 


—_—_——-- ee - - eee ee ee 
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MOV 


tL 
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GJ Ce (9 
UU Ife Oo £m 
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144E 


742 


Ps 
uw 


O-t- pre 
“JIC .0~3 
WO~DO~-— 


ino 
LOU £0 IWMMO~IM.0 


ot 
GI) 
IGI0D = 


Ub 0 
CWMOVMOOWMUOOr- 
Orde OW NwWrud 

WNOWIWO NNW 


205 
970 
1610 


— 
“SIO 
£W 
<o 


<= 


—-OWN@OM -Ww 


Me 3 PUTrUrUule ee eo 
pA] fre 
Mo wwotfu 


i os ] 
- 


NWWODODOMOOOW £0 


1S21 





1550 


rats 
Gio) 


1565 


futur 
4-ie 


1.00 
pe Os 


















EQ 
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2476 2480 








248s 2489 2494 


e 
~OSABL 1940 
~ENASL 334 i187 
END 3 


ENDO 399 410 502 516 535 
707 733 4 Q 1 


< 
-EQUIV 410 411 419 vie 
EVEN 1607 1753 2037 ess4 es87 
IF $s 


ERRORS DETECTED: O 
DEFAULT GLOBALS GENERATED: 0 


[ot re 
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®, DZNCS. SEQ/'SOL ’ Soren Pil 
& 4 SECONDS 


UN-TIME RATIO: 332/60=5.5 
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